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PREFACE 


The  Marksmanship  Aiming  and  Tracking  Analysis  System  (MATAS)  described 
in  this  report  was  developed  jointly  by  the  U.S.  Army  Human  Engineering 
Laboratory  (HEL) ,  Advanced  Technology,  Incorporated  (ATI),  and  the  U.S.  Army 
Project  Manager  for  Training  Devices  (PM  TRADE) . 

Mr.  Jeffery  L.  Maxey,  ATI,  and  Mr.  James  P.  Torre,  Jr.,  HEL,  defined  the 
overall  system  design  for  MATAS.  In  addition,  Mr.  Maxey  provided  detailed 
system  design  guidance  for  the  parameter  and  graphic  analysis  modules.  Dr. 
Joel  Kalb,  HEL,  developed  a  preliminary  version  of  the  parameter  analysis 
module  and  provided  the  code  that  formed  the  core  for  this  module.  Dr.  Kalb 
and  Mr.  Samuel  Wansack,  HEL,  provided  valuable  comments  about  improvements  in 
preliminary  versions  of  the  system.  Mr.  Admiral  S.  Piper,  PM  TRADE,  provided 
management  and  administrative  support  for  MATAS  development. 

Mr.  Sander  Reinhartz,  ATI,  developed  the  code  for  system  modules  to 
include  modifying  and  elaborating  on  Dr.  Kalb's  code  for  the  parameter 
analysis  module  and  completely  developing  the  code  for  the  graphic  analysis 
module.  Mr.  Reinhartz  also  assisted  in  developing  the  guidance  for  using 
MATAS.  Mr.  Gene  K.  Cuccarese,  ATI,  had  primary  responsibility  for  developing 
the  MATAS  user  guidance. 
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MARKSMi'NSHIP  AIMING  AND  TRACKING  ANALYSIS  SYSTEM 


INTRODUCTION 


Background 

The  U.S.  Army  Project  Manager  for  Training  Devices  (PM  TRADE),  the  U.S. 
Army  Human  Engineering  Laboratory  (HEL) ,  and  Advanced  Technology,  Incorporated 
(ATI)  are  jointly  supporting  the  artificial  intelligence  direct  fire  weapons 
research  test  bed  (TB) .  The  TB  in  turn  supports  a  research  program  having  two 
main  objectives.  The  first  is  to  determine  how  to  design  expert  systems  to 
perform  teaching  roles  now  performed  by  humans.  The  second  is  to  acquire 
through  a  program  of  experimental  studies  the  basic  knowledge  needed  to  design 
cost-efficient  training  systems  for  future  line-of-sight  direct  fire  weapons. 

To  develop  the  knowledge  necessary  to  achieve  these  objectives,  the  TB 
has  been  configured  around  a  flexible,  versatile  simulation  of  the  M16A1 
rifle.  This  simulation  is  capable  of  manipulating  training  system  variables 
associated  with  rifle  marksmanship  tas)cs  (e.g.,  zeroing  the  rifle,  self-paced 
slow  fire,  and  field  firing)  .  This  is  the  basic  research  tool  for  the  TB 
program.  It  provides  a  wel) -cont rolled  environment  in  which  to  collect  data 
reflecting  the  processes  underlying  direct  fire  marksmanship  and  gunnery 
(e.g.,  aiming  and  tracking  accuracy  and  precision)  . 

Scientists  from  PM  TRADE,  HEL,  and  ATI  have  worked  together  to  design 
and  implement  a  series  TB  of  aiming  error  studies  (ACS)  to  develop  a  data  base 
for  understanding  M16A1  rifle  aiming  and  tracking.  These  studies  consist  of 
five  related  experiments: 

Phase  I  and  I-B:  Examine  aim  error  as  a  function  of  firing 

position  and  practice. 

Phase  II:  Examine  aim  error  as  a  function  of  apparent  target 
size,  firing  position,  and  practice. 

Phase  III:  Examine  aim  error  as  a  function  of  trigger  activation, 
firing  position,  practice,  rifle  noise,  and  muzzle  deflection. 

Phase  IV:  Examine  aim  error  as  a  function  of  target  angular  rate, 
firing  position,  and  practice. 

Phase  V:  Examine  aim  error  as  a  function  of  target  engagement 

time,  apparent  target  size,  target  angular  rate,  rifle  noise,  and  muzzle 
deflection. 

Each  successive  study  phase  incorporates  aiming  and  tracking  skills 
practiced  in  previous  phases.  The  same  subjects  participated  in  Phases  I  and 
II,  Phases  I-B  and  III,  and  Phases  IV  and  V,  though  seoarate  sets  of  subjects 
participated  in  each  pair  of  experin;ents . 

The  goal  of  the  AES  series  of  experiments  is  to  integrate  the  aiming  and 
tracking  data  into  a  quantitative  model  of  performance. 
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Data  collection  for  all  A£S  phases  is  complete.  Data  analysis  is 
complete  and  letter  reports  have  been  published  for  Phases  1,  I-B,  and  II 
(Maxey,  Torre,  Cuddeback,  Cuccarese,  4  Beinhaitz,  1906;  Cuddeback,  Cuccarese, 
Maxey,  Torre,  4  Reinhartz,  1907;  Maxey,  et  al.,  1986).  Analysis  is  under  way 
for  the  three  remaininq  phases  (i.e..  Phases  III,  IV,  and  V) .  Final  summary 
reports,  focusing  separately  on  aiming  and  tracking  findings,  will  be 
published  in  the  future. 


Marksmanship  Aiming  and  Tracking  Analysis  System 

The  Marksmanship  Aiming  and  Tracking  Analysis  System  (MATAS)  is  a 
software  tool  which  allows  analysts  to  manipulate  and  study  the  functional 
relationship  between  aiming  and  tracking  performance  and  target,  battlefield, 
and  human  factors  parameters.  The  quantitative  model  that  drives  MATAS  is 
designed  to  employ  data  generated  by  AES  Phases  I  and  II.  This  data  base  will 
be  augmented  as  additional  AES  data  summaries  are  analyzed  and  interpreted. 

The  remainder  of  this  report  consists  of  a  user  manual.  It  is  designed 
to  familiarize  analysts  with  MATAS'  capabilities  and  operation  procedures. 
This  information  is  structured  in  the  following  manner: 

Section  II;  Capabilities  Overview 

Section  ITI:  Equipment  Requirements  and  installation  Procedure 

Section  IV;  Sy.stem  Functions 

Documentation  is  provided  in  Appendices  A,  B,  and  C.  Append,..  A 
provides  a  flow  chart  of  MATAS  architecture,  Appendix  D  contains  a  listi-.g  of 
MATAS  code,  and  Appendix  C  provides  a  listing  of  all  system  files  requi  J  to 
install  and  execute  MATAS. 


CAPABILITIES  OVERVIEW 

MATAS  is  an  analytical  tool  designed  to  oid  direct  fli^,  weapon  designers 
and  researchers.  The  primary  function  of  MAT.\S  is  to  allow  the  analyst  to 
assess  the  impact  of  a  variety  of  weapon  syster  inr'  t,  •  1  o  f  leld  factors  on 
aiming  and  tracking  performance.  By  manipo  l  <,  1 1  n'j  tl.'  o  1  ..-r  of  a  single 
parameter  or  a  set  of  parameters,  the  analyst  cap  ;  ysl  em.i  ,i  cully  study  the 
effect  of  these  changes  on  the  probability  of  hitticM  .arget  . 

MATAS  is  configured  for  several  weapon  system  and  ' aigei  arrangements: 

M16A1  Rifle  -  M193  and  M855  projectiles.  Both  projectiles  can 
engage  E-silhouette,  F-silhouette,  or  tank  (front  and  side  view)  targets. 

AT-4  Round  -  the  AT~4  round  can  also  engage  E-silhouette,  F- 
silhouette,  and  tank  (front  and  side  view)  targets. 
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Target  height  is  adjustable  Height  adjustments  range  from  1  through  10 
meters  (m)  for  all  target  types.  When  height  is  adjusted,  other  target 
dimensions  are  adjusted  proportionally. 

MATAS  updates  system  pararr.eters  dynamically.  When  a  parameter  value  is 
changed,  MATAS  adjusts  related  parameters  accordingly.  For  instance,  if  the 
affected  target  is  ctianged  from  an  F-  to  an  F-si  Ihout  tte,  MATAS  updates  the 
target  dimensions  and  recalculates  hit  probability.  Also  at  this  time,  MATAS 
recalculates  any  other  model  parameters  influenced  by  the  parameter  being 
changed.  Through  this  process,  the  analyst  can  study  how  hit  probability  and 
the  parameters  affecting  hit  probability  vary  with  specific  parameter  changes. 

MATAS  calculates  hit  prob.sbili*y  using  the  single  shot  hit  probability 
model  described  by  U.S.  Army  Development  and  Readiness  Command  (1977).  Figure 
1  provides  a  brief  summary  of  this  model.  This  model  assumes  that  the  round- 
to-round  delivery  standard  deviation  is  the  same  for  x  and  y  coordinates. 


The  probability  of  hittin,  a  target  is  obtained  from 

a  •  “  * 

P(/|)  -  ll/(:»<r''l  1  J  fxpl-  vr*  - 

-•  -  • 

or,  in  so-called  .standard  form, 


•  l^'l,  v^'  f  I  ^,1, 


v^'  I  e«tp» -\'*,'2)ar 


in  wliich. 


pihi  •  hi(  probabiliiv 

j  •  icmiknqrb  b(  •  itntn 

i  •  srmiwidih  o(  a  rmin^vilar  lar^ci 
>  random  vinabir  ancnbinq  •  oclivcrv  vananon 
I  ■  random  vanablrdcicnbinq  a  aclivrrvvanaiion 
e  •  onr  dimnional  raunduo-round  deliwrv  iiandard  dcviaiion  (or  ih(  cair 

o,  “  tf,  •  0 


Figure  1.  Single  shot  hit  probability  model. 


MATAS  is  divided  into  two  (>.isic  module.*'; 


Parameter  analysis  (PA) 
Graphic  analy.si.s  (GA) 


These  modMles  perform  similar  functions  but  differ  in  their  focus.  Both 
modules  allow  the  analyst  to  manipulate  parameters  as  follows: 

Projectile  type 
Target  type  and  height 
Aim  adjustments 
Crossdrift  speed 
Aim  error 

Target  range  (PA  only) 

Hit  probability  (PA  only) 

Target  speed 


The  PA  module  focuses  on  the  individual  parameters  that  impact  the 
outcome  of  the  tiring  process.  Results  are  summarized  both  tabularly  and 
graphically  for  a  single  target  and  specific  range.  MATAS  provides  a  hit 
probability  estimate  given  user-defined  target  characteristics,  battlefield 
parameters,  and  aim  error.  Additionally,  the  analyst  can  input  a  desired  hit 
probability,  and  the  PA  r.odule  estimates  the  aim  error  required  to  achieve  the 
probability.  Once  parameter  values  have  been  set,  thi-  analyst  can  graph  the 
results.  The  PA  module  presents  results  for  a  specified  target  and  range  with 
40%,  86%,  and  99%  round  impact  circles  (sec*  Figure  »). 


I  I  .  I  I  <  ;  I 


■■I" !  ;  I  '  '  I  1  '  i’  'I  1  ■' 


1 

.si 

8 

■.5[- 

-1 


-T-r-r-m-j.  ,  ,  ,  I  .  ,  .  .  , 

Hit  mb :  8.5H  fliR  iTPor  :  l.H»  mis  lirget  wnge  :  ft 

49,  86,  find  Percent  Round  Inpact  Circles 


.1  ■  t.g-. 

-1.5 


Hit  Any  Key  To  Return  To  Hain  Henu  ^ 


Heters  t  i 


-.5 


.5 


1.5 


Parameter  analysis  hit  prob.sbility  graph. 
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Figure 


The  GA  module  primarily  focuses  on  the  relationship  between  aim  error 
and  hit  probability  as  a  function  cf  target  range.  Only  those  parameters  that 
are  independent  of  target  range  are  manipulated  in  the  GA  module.  In  the  GA 
module,  the  analyst  can  graph  as  many  as  three  hit  probability  curves 
reflecting  different  aim  error  values  (see  Figure  3)  .  MATAS  uses  the 
parameters  existing  at  the  time  the  G.A  module  is  exercised  to  develop  the 
theoretical  curves.  Additionally,  the  analyst  can  enter  a  set  of  empirical 
hit  probability  data  and  aim  error  values  to  produce  a  curve  to  compare  to  the 
theoretical  curve (s) . 


CURUEl:  l.eBnils  CyRUE  2  :  2.88  Mils  CURUE  3  :  3.88  nils 


RGE  58  188  150  298  258  388  3'8 


Figure  3.  Hit  probability  for  difrerei.t  aiming  errors. 


EQUIPMENT  REQUIREMENTS  AND  INSTALLATION 

The  minimum  equipment  and  syste..T  capabilities  required  to  run  MATAS 
include  the  follo.iing: 

IBM-compatible  personal  computer  (PC) 

640K  ram 
Color  monitor 

Color  graphics  adapter  (CGA)  card 

One  5-1/4-inch  floppy  drive 

Version  3.1  disk  operating  system  (DOS®) 
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The  most  desirable  equipment  and  system  configuration  is  as  follows: 


IBM-compatible  PC 
Color  monitor 
Hard  disk 

Extended  graphics  adapter  (EGA)  card 
€40K  ram 

Epson  FX  or  IBM  graphics  printer 
Math  coprocessor 


System  Setup 

MATAS  is  written  in  Quick  BASIC®,  Version  3.0.  An  IBM  PC/AT  computer 
was  used  to  develop  the  system.  Appendix  A  contains  a  flow  chart  of  MATAS 
architecture.  Appendix  B  contains  a  complete  listing  of  MATAS  code.  The  PC 
system  used  to  develop  MATAS  include  the  following: 

20-megabyte  hard  disk 
640K  ram 

Math  coprocessor 
CGA  card 


It  is  important  to  establish  system  configuration  before  beginning. 
MATAS  execution  time  is  slower  without  a  math  coprocessor.  CGA  screen 
displays  are  in  black  and  white  and  can  be  output  to  an  Epson  FX  or  IBM 
graphics  printer  by  entering  <SHIFT>  <PRINT  SCREEN>.  EGA  screen  displays  are 
in  color  but  cannot  be  output  to  a  printer. 

Four  versions  of  MATAS  were  developed  to  be  compatible  Vl'ith  most  PC 
systems.  Each  stand-alone  version  of  MATAS  resides  on  a  5-1/4-inch  floppy 
disk.  Each  disk  contains  DOS,  MATAS,  required  data  files,  and  batch  commands 
(see  Appendix  C) .  The  batch  files  allow  the  analyst  to  run  MATAS  or  install 
the  system  onto  a  hard  disk  drive  from  which  it  can  then  be  run. 


Installation 

Choose  the  diskette  that  corresponds  to  the  hardware  configuration  of 
the  computer  system  on  which  MATAS  will  reside: 

CGA  with  math  coprocessor  -  Disk  1 
EGA  with  math  coprocessor  -  Disk  2 
CGA  without  math  coprocessor  -  Disk  3 
EGA  without  math  coprocessor  -  Disk  4 

Floppy  Disk  Drive  System 

To  execute  MATAS  on  a  floppy  drive  system,  load  the  appropriate 
disk  in  Drive  A  and  boot  the  computer.  A  batch  file  (AUTOEXEC.BAT)  will 
automatically  execute  MATAS. 
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Hard  Disk  Drive  System 

After  the  boot  process  is  complete,  load  the  appropriate  disk  in 
Drive  A.  To  install  MATAS  on  the  hard  drive,  enter  the  command  "A:INSTALL." 
The  batch  file  INSTALL.BAT  creates  a  directory  called  C:\MATAS  into  which  all 
required  MATAS  files  are  copied.  MATAS  must  be  executed  from  the  MATAS 
directory.  Change  the  directory  to  C:\MATAS  with  the  command  "CD\MATAS." 
Once  in  this  directory,  the  system  can  be  executed  by  entering  "MATAS." 


SYSTEM  FUNCTIONS 

The  following  system  functions  will  familiarize  the  analyst  with  MATAS 
capabilities .  By  working  through  the  following  examples,  the  analyst  will 
gain  an  understanding  of  PA  and  GA  aim  error  component  functions.  Figyre  4 
shows  the  boot-up  display  which  controls  ertry  into  the  two  MATAS  modules. 
The  module  menu  allows  the  analyst  to  enter  either  module  or  exit  the  system. 


Select  Hodei  Option 

Paranetep  Analpsis  . . 

Graphic  Analysis  ......... 

Quit  Nodel . . 

.....  1  i 

.....  2  1 

.....  3  1 

Enter  ->  ?  I 


Figure  4.  MATAS  module  menu. 


Select  option  1  to  exercise  the  PA  module  and  display  the  PA  main  menu. 
The  display  should  match  the  display  shown  in  Figure  5. 

This  menu  is  divided  into  three  sections.  The  first  section  defines 
projectile  and  target  characteristics;  the  second  section  defines  battlefield 
conditions,  aim  error,  and  hit  probability;  and  the  third  section  lists  the 
functions  that  can  be  used  to  change  system  parameters. 


Parameter  Analysis  Hit  Probability  Estimation 

When  MATAS  is  initialized,  the  PA  parameter  values  are  set  to  the 
default  values  presented  in  Figure  5.  Suppose  the  analyst  had  the  task  of 
estimating  hit  probability  given  the  following  parameter  changes: 

M855  projectile 
-fS.O  meters/sec  crossdrift 
150-meter  target  range 
+2.0  meters/sec  target  speed 
2.10  mils  aim  error 
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FAIIIINEIER  AKALVSIS 


Projectile  Tupe 
Initial  Fitcli  Angle 
Right  Tihe 

Impact  Uelocity 

K  -  Inpact  Point 

11  -  Irtpact  Point 

H193 

1.66  nils 
0.31  s 
665.49  n/s 

0.00  H 
0.00  H 

Target  Type  £  Silhouette 

Target 

Dinensions  Heigth  1,00  h 

Midth  0.49  N 

Area  0.42  Hsg 

Battlefield  Conditions 

Battlesight 

Crossdrift 

Target  Range 

Target  Speed 

250.00  H 
0.00  H/S 
250.00  H 
0.00  h/s 

X  -  AIh  Adjustwent  0.00  h 

y  *  AiH  AdjustHent  0.00  n 

Aih  Error  1.00  Nils 

Hit  Prohahility  0,59 

Select  Function(s) 

1  -  Projectile  Igpe/Battlesight 

2  -  Crossdrift  Speed 

3  -  Target  Characteristics 

4  -  Target  Range/Speed  7  -  Adjust  K/V  Aiw 

5  -  Ain  Error  8  -  Graph  Results 

6  -  Hit  Prohahility  9  -  Quit 

Enter  ?  | 


Figure  5.  Parameter  analysis  main  menu. 


Select  function  1,  and  change  projectile  type  to  an  M85S  round. 


Current  Projectile  Type  Hi93 

N193  Projectile  !•**«« mi  i 

H8S5  Pro,|ectile .  2 

(IT-4  Projectile .  3 

Enter  <cr)  To  Keep  Current  Projectile  Type 

Or  Enter  New  Projectile  Type 


Enter  -->  ?  2| 


On  the  display  that  follows,  do  not  adjust  the  battlesight  range.  Enter 
a  carriage  return  <cr>  to  bypass  the  battlesight  range  display,  and  return  to 
the  PA  main  menu. 

I  Current  Battiesiyht  Range  250  n  ! 

1  1 

I  Enter  <cr)  To  Keep  Current  Ualue  I 

1 

I  Or  Enter  New  Battiesiyht  Range  I 

! _ 1 

Enter  -->  ?  I 
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Compare  the  updated  parameter  values  to  those  in  Figure  5.  The  analyst 
can  assess  the  impact  of  each  change  on  other  parameters  after  returning  to 
the  PA  main  menu. 

Select  function  2,  and  input  a  value  of  +3.0  for  crossdrift  speed. 


I  Current  Crossdrift  Speed  0.B3  h/s  | 

I  ! 

!  Enter  <cr>  To  Keep  Current  Value  j 

j  I 

1  Or  Enter  Neu  Crossdrift  Speed  (+  or  -)  1 

!_ _ ! 

Enter  — )  ?  +3. 00 

Review  the  PA  menu.  As  this  menu  shows,  a  crossdrift  change  will  affect 
the  X  dimension  inpact  point  and  will  reduce  hit  probability.  Select  function 

4  and  change  target  range  to  150  meters. 

—  '  ■ 
j  I 

1  Current  Target  Range  250.00  «  j 

j  I 

1  Enter  <cr>  To  Keep  Current  Value  1 

j  I 

1  Or  Enter  New  Target  Range  I 

Enter  *•)  ?  1501 


On  the  display  that  follows,  enter  a  target  speed  of  +2.0  meters/sec. 

j  I 

1  Current  Target  Speed  0.00  h/s  j 

j  I 

1  Enter  <cr)  To  Keep  Current  Value  ! 

j  t 

1  Or  Enter  New  Target  Speed  (+  or  -)  I 

Enter  •’>  ?  +2.01 


Review  the  PA  menu.  Changing  the  target  range  without  adjusting  the 
battlesight  range  results  in  a  Y  dimension  offset.  Setting  the  target  in 
motion  adds  to  the  X  dimension  offset.  Together,  both  changes  further  reduce 
hit  probability.  Make  the  final  adjustment  by  changing  the  aim  error  value. 
Select  function  5,  and  choose  option  1  from  this  menu. 


Select  Error  EstiHation  Option 


Enter  Total  Ain  Error 
Estinate  Error  Fron  CoHponent(s) 
Retrieve  Prior  Estinates 
Quit . 


14  11(11)111 


1  •  t  I  4  I  I  (  I  I  I  I  I 


Enter  -->  ?  10 
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Enter  an  aim  error  value  of  2.10  mils. 


Cumnt  AiM  Emr  l.Bfl  Nils 
Enter  <cr)  1o  Keep  Current  Value 
Or  Enter  New  AIn  Error 


Enter  -->  ?  2.101 

The  follov/ing  estimation  summary  display  presents  a  history  of  hit 
probability  estimation  activity.  This  display  includes  the  initial  data, 
user-entered  data,  program— generated  data,  and  the  final  data  displayed  on  the 
PA  main  menu.  All  summary  displays  are  structured  so  that  inputs  are 
presented  in  the  middle  column,  while  all  outputs  are  presented  in  the  far 
right  column.  Hit  any  key  to  return  to  the  PA  main  menu. 


ESIIHAIION  SUHKARy 

Estinste  Ain  Error  Hit  Probability 


0.3A 

e,28 

e.28 


Hit  Any  Key  To  Continue 

As  expected,  an  increase  in  aim  error  further  reduces  hit  probability. 
Examine  the  display  to  ensure  that  the  changes  made  match  the  menu  presented 
in  Figure  6, 


FARANEIEA  ANALYSIS 


Projectile  Type 
initial  Pitcn  Angle 

N8SS 

1.62  nils 

Target  Type 

E  Silhouette 

Flight  line 
iNpact  Velocity 

8.18  s 

775.46  n/s 

Target 

BiNensions 

Heieth 

Uidth 

1.99  N 

X  -  Inpact  Point 

-8.38  M 

8.48  N 

y  '  Inpact  Point 

8.11  N 

Area 

8.42  nsq 

Battlefield  Conditions 

Battlesioht  ZSB.N  n 

CrossHriit  3.09  n/s 

Target  Range  1S6.99  n 

target  Speed  2.90  h/s 

Select  Function(s) 


1  '  Projectile  Iy?e/6atilesight  4  -  T^rt^et  Range/SpteA  7  -  Adjust  X/V  Ai» 

2  *  Crossdrift  Speed  5  Ain  Error  8  *  Cpaph  Results 

3  -  Target  Characteristics  C '  ttit  Probability  8  *  Quit 


Inter  ?  8 


X  ■  AiN  Adjustnent 
y  -  AiM  Adjustnent 
Ai*  Error 
Hit  Probability 


9.99  N 

8.99  N 
2.19  Nils 
8.28 


Initial  1.98 

User  2.18 

Final'  2.18 


Figure  6.  Ur  rod  parameter  values. 


After  verifying  the  accuracy  of  parameter  changes,  select  function  8  to 
graph  the  results  (see  Figure  7) . 


Figure  7.  Hit  probability  graph. 


MATAS  generated  a  hit  probability  estimate  of  0.28  based  on  the  data 
just  entered.  The  changes  made  in  crossdrift  speed  and  target  speed  resulted 
in  an  offset  of  -0.30  m  in  the  X  dimension  impact  point.  Changing  the  target 
range  caused  an  offset  of  +0.11  m  in  the  Y  dimension  impact  point.  These 
impact  point  offsets  caused  the  decrease  in  hit  probability.  Hit  probability 
can  be  maximized  by  adjusting  the  aim  point  so  that  the  center  of  the  hit 
probability  circle  corresponds  to  the  projectile  target  0,0  point. 

The  impact  point  offset  apparent  in  Figure  7  can  be  compensated  for  with 
an  X,Y  aim  point  adjustment.  Another  option  is  to  make  an  aim  adjustment  in 
the  X  dimension  and  set  the  battlesight  range  to  corresp>ond  to  the  target 
range  to  correct  the  Y  dimension  offset. 

First  try  making  the  X,Y  aim  point  adjustments.  Select  function  7,  and 
enter  a  +0.30  id  X  aim  adjustment  to  compensate  for  crossdrift  and  icrget 
speed. 
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I  Cuppent  V-AIh  yjustMent  0.08  n  | 

I  I 

I  £ntep  (op)  To  Keep  Cuppent  Value  | 

I  Or  Enter  New  V-AIn  Adjustwent  (Mr  ~)  ! 

I  I 

I  _  -  _ I 

fitter  --)  ?  -.Ill 

On  the  display  that  follows,  enter  a  -0.11  m  Y  aim  adjustment  to 
condensate  for  the  difference  between  the  battlesight  and  target  range. 

|, - I 

!  Current  Hid  Adjustnent  0.00  n  I 

1  I 

1  Enter  <cr>  To  Keep  Current  Value  I 

1  I 

I  Or  Enter  New  X-Aid  Adjustdent  (Mr  -)  I 

1^ _ _ _ ! 

Enter  -)  ?  +.301 

Examine  the  PA  main  menu.  It  shows  that  the  X,Y  impact  point  is  at  0,0 
which  results  in  a  greater  hit  probability.  Select  function  8  to  graph  the 
re.sults  . 


Now  make  the  offset  correction  by  adjusting  the  battlesight.  First, 
reset  the  Y  aim  adjustment  back  to  zero.  Select  function  7,  and  enter  a  <cr> 
to  bypass  the  X  aim  adjustment  display.  Once  at  the  Y  aim  adjustment  display, 
enter  a  0 . 
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Current  V-AIm  AdJustMent  -0.11  n 
Enter  (cr)  To  Keep  Curren  lue 
Or  Enter  Hew  V-flin  Adjustment  (♦  or  -) 

Enter  -)  ?  0| 


The  PA  main  menu  display  shows  the  Y  offset  back  to  0.11  m.  Select 
function  1,  then  enter  a  <cr>  to  maintain  the  present  projectile  type.  On  the 
display  that  follows,  change  the  battlesight  range  to  150  m. 


Current  Batttesijht  Range  2S0  n 
Enter  <cr)  To  Keep  Current  Ualue 
Or  Enter  New  Battlesight  Range 

Enter  -)  ?  1501 


The  PA  main  menu  shows  that  both  offset  correction  methods  result  in  the 
same  hit  probability  estimate  of  0.45. 


PARAHETER  ANALVSIS 


Projectile  Tgpe  HB55 

Initial  Pitch  Angle  0.90  mils 
night  Time  0.18  s 

Inpact  Velocity  775.46  m/s 

X  -  Impact  Point  -0.00  m 

tl  -  Impact  Point  0.00  n 

Battlefield  Conditions 


Target  Type  E  Silhouette 
Target 

Dimensions  Heigth  1.00  m 
Uidth  0.49  m 

Area  0.42  msg 


Battlesight  150.00  m  X  -  Aim  Hdjustment  0.30  m 

Crossdrift  3.00  m/s  X  -  A’«  Adjustment  0.00  m 

Target  Range  150.00  m  Aim  '<  .i'  2.10  mils 

target  Speed  2,00  m/s  Hit  rrobability  0,45 

Select  Function(s) 


1  -  Projectile  Type/Battlesight  4  -  Target  Range/Speed  7  -  Adjust  X/X  Aim 

2  -  Crossdrift  Speed  5  -  Aim  Error  8  -  Graph  Results 

3  -  Target  Characteristics  6  -  Hit  Prohahility  9  -  Quit 


Enter  — )  ?  B 
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Select  function  8  to  graph  the  results. 


The  exercise  just  completed  provides  an  example  of  MATAS  capabilities. 
MATA.*^  calculated  an  estimate  of  hit  probability  based  on  a  hypothetical  set  of 
battlefield  conditions.  The  analyst  then  used  MATAS  to  maximize  hit 
probability  by  making  aim  adjustments. 


Aim  Error  Estimation 

In  the  hit  probability  example,  the  analyst  entered  a  value  of  2.10  mils 
for  aim  error.  This  aim  error  value,  together  with  the  other  parameters, 
generated  a  hit  probability  estimate  of  0.45.  Suppose  that  the  analyst  wants 
to  increase  hit  probability  to  0.90  given  the  battlefield  situation  created  in 
previous  example.  What  would  the  aim  error  have  to  be  to  obtain  a  0.90  hit 
probability? 

MATAS  can  estimate  aim  error  based  on  the  desired  hit  probability. 
Select  function  6  and  enter  a  0.90  hit  probability. 

I  I 

I  Current' Hit  Probability  0,45  I 

I  I 

I  Current  Aid  Error  2.10  Mils  I 

1  I 

I  I 

I  Enter  <cr)  To  Keep  Current  Values  I 

I  Or  Enter  Ney  Hit  Probability  (0-1)  I 

I  t 

I  _  _  _  -  I 

Enter  --)  ?  .901 
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MATAS  calculated  an  initial  aim  error  estimate  of  1.13  mils  which  the 
analyst  can  accept  or  reject.  If  the  analyst  wanted  to  change  the  initial 
estimate,  a  new  value  could  be  entered.  However,  for  this  example,  accept  the 
initial  estimate  by  entering  a  <cr>. 


ESIINAIION  SUHMARV 


Error  Tolerance  =  .8081 


Estinate 

Hit  Probability 

AiH  Error 

Initial 

8.45 

2.18 

User 

8.90 

PrograH 

U3 

Final 

8.98 

8.94 

Hit  Any  Key  To  Continue 

The  estimation  summary  display  indicates  that  MATAS  generated  a  final 
aim  error  estimate  of  0.94  mil.  The  aim  error  estimation  process  is 
iterative,  and  it  is  based  on  the  Newton-Raphson  method  for  calculating  the 
root  of  an  equation  (Pipes  &  Harvill,  1970) .  The  estimation  program 
calculates  a  series  of  aim  error  estimates  before  choosing  the  best  value. 
The  initial  estimate  of  1.13  mils  represents  the  seed  value  that  the  system 
begins  with.  The  final  aim  error  estimate  represents  the  value  produced  at 
the  completion  of  the  iteration  process.  The  process  continues  until  a 
solution  is  obtained,  a  failure  condition  is  encountered,  or  ten  iterations 
have  been  completed  without  obtaining  a  solution.  (A  solution  exists  when  two 
successive  interactions  differ  by  less  than  O.OOOl  in  absolute  value.)  The 
initial  estimate  may  differ  from  the  final  estimate  depending  on  how  far  off 
the  initial  estimate  was. 


Aim  Error  Components 

Aim  error  is  derived  from  a  number  of  components  involved  in  the  aiming 
and  traclcing  process.  Thus  far,  presentation  of  MATAS  aim  error  capability 
has  been  limited  to  composite  values.  MATAS  can  compute  aim  error  based  on 
components  defined  by  the  analyst.  The  following  example  demonstrates  how  to 
calculate  aim  error  using  components  of  the  firing  process. 

Select  function  5  from  the  PA  main  menu,  on  the  display  that  follows, 
select  option  2  from  the  aim  error  estimation  menu. 


Select  Error  Estination  Option 

Enter  Total  Ain  Error  . 

..  1 

Estinate  Error  Froit  CoNponent(s)  ... 

..  2 

Retrieve  Prior  EstiHates  . 

..  3 

Quit  . 

..  4 

Enter  ->)  ?  2| 
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The  component  menu  which  follows  lists  11  components  of  the  aiming  and 
tracking  process. 


Enter  Up  To  30  Conponents 
Entering  CoMponent  1 


tleapon/Round  Dispersion . 

Firing  Position  . . . . 

Irigifer  Control  . 

Breath  Control  . 

Physical  Condition  . 

Stress  . . 

Suppressive  Fire  . 

target  Bange . 

Target  Speed  . 

Target  Size  . 

Target  Exposure  Tine  . 

User  Defined  CoHPonentts)  .... 
Quit  . 


1 

2 

3 

4 

5 

6 
? 
8 

9 

10 
11 
12 


Enter  — )  ?  I 


The  analyst  can  define  which  components  contribute  to  aim  error  and  the 
degree  of  error  contribution.  In  addition  to  the  11  components  provided  by 
MATAS,  the  analyst  can  define  as  many  as  19  additional  components. 

Suppose  the  analyst  wants  to  know  the  composite  aim  error  based  on  the 
following  component  data: 

0.43  mil  prone  unsupported  firing  position  aim  error 
0.30  mil  trigger  control  aim  error 
0.15  mil  breath  control  aim  error 


Select  option  12  to  create  a  user-defined  component.  Enter  prone 
unsupported  to  define  the  component  name. 


User  Defined  Conponent 

Enter  Conponent  NsMe  (Up  To  23  Characters) 

Enter  — >  ?  Prone  Unsupported! 
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On  the  display  that  follows,  enter  0.43  mil  to  define  the  component  aim 

error . 

r  ^ 

I  I 

I  CoHponent  Nane  Prone  Unsupported  | 

I  Enter  Value  (in  nils)  i 

I  i 

I  _  I 

Enter  -->  ?  .43B 

From  the  component  menu,  select  component  3  and  enter  an  aim  error  value 
of  0.38  mil. 

■  ■  I 

I  I 

!  CoHPonent  Nane  Trigyer  Control  ! 

I  Enter  Value  (in  nils)  ! 

i  I 

I  - 1 

Enter  ->  ?  .38| 


From  the  component  menu,  select  component  4  and  enter  an  aim  error  value 
of  0.15  mil. 

!  CoMponent  Naue  Breath  Control  | 

1  I 

I  Enter  Value  (in  Nils)  I 

1 _ 

Enter  ••>  ?  .151 


The  composite  aim  error  (which  is  the  square  root  of  the  sum  of  the 
squared  component  values)  now  consists  of  three  components  with  aim  error 
values  defined  by  the  analyst.  Select  option  13  to  quit.  The  display  that 
follows  presents  a  summ.iry  of  the  components  previously  defined  and  editing 
features . 

TOTAL  ESTIMATEB  AIH  IDROR 


COHPONENT 

COHPONENT 

COHPONENT 

NO, 

NONE 

VALUE 

1 

Prone  Unsupported 

8.43 

2 

Trigger  Control 

8.38 

3 

Breath  Control 

8.15 

Total  Error 

8.59 

1  ■  Page  1 

4  •  Add 

?  -  Retrieve 

2  -  Page  2 

5  -  Delete 

8  -  Store 

3  -  Page  3 

6  *  Hodify 

9  -  Quit 

Enter  --)  ?  I 
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The  analyst  can  define  as  many  as  10  aim  error  components.  The 
component  summary  presents  components  1  thiougli  10,  followed  by  the  second  10, 
and  ending  with  the  last  10.  The  analyst  can  add,  delete,  or  modify  the 
components  using  editing  functions  4,  5,  and  6.  Previously  developed 
component  data  can  be  retrieved,  and  new  data  can  be  stored  using  functions  7 
and  8.  A  summary  of  component  atm  error  estimation  activity  is  presented  when 
the  analyst  uses  function  9  to  quit. 

Suppose  the  analyst  had  to  change  the  flrirnj  posit  io,  to  fojthoio 
supported  with  an  aim  error  of  0.33  mil.  Select  oditing  function  i  to  t  rttfy 
the  first  component.  On  the  display  that  folUjw.s  solf.M  .:cmpcn«ni  nurbei  v.o 
be  modified. 


TOTAL  ESTIMATED  AIM  EMROR 

COHPOH'iNI 

COMPONENT 

COMPONENT 

HO. 

NAME 

UALUE 

1 

2 

Prone  Unsupported 

Tri3«p  Control 

Breath  Control 

0.43 

0.38 

3 

0.15 

Total  Error 

0.59 

Enter  Conponent  NuHber  To  Be  Hodifiej  — )  ?  i| 


Select  option  3  to  r.odify  both  the  name  ar.d  value. 


COHPOHENT  COHPONEHI 

NO.  NflHE  ilftLUE 


1  Prone  Unsupported  0.43 


Enter  Hodificat'on  Option 

N»He .  I 

U*lue . 2 

NitHe  i  U»l«e .  3 

Quit  .  4 


Enter  — )  ?  3| 


From  the  component  menu,  select  option  12  tc  modify  the  compone^'t  name 
and  aim  error.  Change  the  component  name  to  foxhole  supported 


User  Defined  CoMponent 

Enter  CoHponent  Nitne  (Up  To  23  Characters) 

Enter  -->  ?  Foxhole  SupportedI 


c 


On  the  next  display,  enter  a  new  aim  error  of  0.33  mil. 


Conponent  Foxhole  Supported 
Enter  Value  (in  Mils) 

Enter  ->  ?  .33| 


The  component  summary  menu  presents  the  updated  analyst  defined  aim 
error  components  with  the  total  composite  aim  error.  Store  this  component  set 
usiny  function  8. 


TOTAL  ESTIKATED  AIH  ERROR 


COHPONENT 

HO. 

COHPONENT 

HAKE 

CONPONEHT 

VALUE 

1 

2 

3 

Foxhole  Supported 
Triyoer  Control 

Breath  Control 

8.33 

8.38 

8.13 

Total  Error 

8.53 

1  *  Paye  1 

4  -  Add 

?  •  Retrieve 

2  -  Pa«e  2 

5  -  Delete 

8  •  Store 

3  •  Paye  3 

6  -  Hodify 

9  -  Ouit 

Enter  ->  ?  8| 


Th  analyst  can  retrieve  this  component  set  later  with  function  7. 
Select  function  9  to  quit  aim  error  component  development.  The  summary 
displ  y  that  follows  indicates  that  given  the  present  battlefield  situation, 
an  aim  error  of  0.53  mil  yields  a  100%  hit  probability. 


ESTIHATION  SUMHARV 


Estinate 

AiH  Error 

Hit  Probability 

Initial 

8.94 

8.99 

User 

8.53 

— 

ProyraN 

— 

1.88 

Final 

8.53 

1.88 

Hit  Any  Key  To  Continue 
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Hit  any  key  to  return  to  the  PA  main  menu. 


PARAHETER  ANALVSIS 


Projectile  lupe 
Initial  Pitcii  Aniile 
Flight  line 
Inpact  Delocity 
i  -  iHpact  Point 
y  -  Impact  Point 


Hess 

0.96  nils 
0.18  s 
775.46  H/s 

-0.00  N 
0.00  M 


Target  Type  E  Silhouette 


Target 

Pinensions 


Heioth  1.00  n 
Uidth  9.49  N 
Area  6.42  Hsq 


Battlefield  Conditions 


Battlesight 
Crossdrift 
Target  Range 
Target  Speed 

Select  Function(s) 


150.00  H 
3.00  h/s 
150.00  H 
2.00  n/s 


y  '  AiN  Adjustnent 
y '  Ain  Adjustnent 
AiH  Error 
Hit  Prohability 


9.30  H 
0.90  N 

0.53  Nils 
1.00 


1  -  Projectile  lype/Battlesight  4  -  Target  Range/Speed  7  -  Adjust  X/y  Ain 

2  -  Crossdrift  Speed  5  ~  Ai»  Error  B  -  Graph  Results 

3  -  Target  Characteristics  6  -  Hit  Probability  9  *  Quit 


Enter  -)  ?  | 


Select  function  8  to  graph  the  results. 


Hit  any  key  to  return  to  the  PA  main  menu.  Select  function  9  to  quit 
the  PA  module  and  return  to  the  module  menu. 
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Graphic  Analysis  Hit  Probability  Estimation 

The  GA  module  allows  the  analyst  to  manipulate  aiming  and  tracking 
parameters  to  generate  one  to  three  hit  probability  curves.  The  analyst  sets 
the  parameter  value.s  used  to  establish  hit  probability  estimates  across  ranges 
from  1  to  400  m.  In  addition  to  developing  theoretical  hit  probability 
curves,  the  analyst  can  use  the  GA  module  to  plot  empirical  target  range  and 
hit  probability  data.  The  analyst  can  plot  the  theoretical  and  empirical  data 
separately  or  together  as  shown  in  Figure 

WEI:  l.MmIs  CURVE  2:  2. U  nils  OIRVE  3  :  3. H  nils 


CURVE  1  :  l.N  mis  CURVE  2  :  2.U  nils  CURVE  3  :  3.M  nils 


CURVE  R-r  \ 


Figure  8,  Theoretical  and  empirical  data  plots. 


Select  option  2  from  the  module  menu,  and  enter  the  GA  module 


Select  Kodel  0{ition 

Paraneter  Anali/sis 
Grapliic  Analysis  .. 


Enter  -->  ? 


Figure  9  displays  the  GA  main  menu.  This  menu  controls  all  GA  module 
data  definition  and  plotting  functions. 


Select  Function 
Define  Data 

iiieoretical  . . .  1 

Enpirical  . Not  Defined.... . 2 

Plot  uim(s) 

Select  Ilieoretical  Cum(s)  ..Ciii('ve(s).li2,3..  3 
IncIiide/ExcUide  Theoretical 
Incliide/Exclude  Enpirical  .. 

Display  . 

Quit 


iiiiiiiitttiiiiiiiiiiiiiii 


INCLUDE^ .  4 

...EyCIilDED .  5 

6 
7 


Enter  --)  ?  | 


Figure  9.  Graphic  analysis  main  menu. 


The  analy.st  can  define  a  theoretical  battlefield  situation  through  the 
same  process  used  in  the  PA  module.  Select  function  1  to  examine  the 
parameter-  menu.  MATAS  initializes  the  battlefield  situation  with  the  default 
parameters  shown  in  Figure  10. 


Define  Battli 
ProJecti 
y  Ain  Po 

Hin  Point  Adjustnent  ...  0.08  n 

kttlesiyht  Range . 250.00  n 

Crossdrift . .  0.00  n/s 

Target  Type  ...  E  Silhouette 

Target  Height  .  1.00  n  .. 

Target  Speed  .  0.00  n/s  ... 

Define  iiin  Error 

Curve  1 .  1.00  nils . 

Curve  2 .  2.00  nils . 

Curve  3 .  3.00  nils . 

Store  Curve  Paraneters  . 

Retrieve  Curve  Paraneters . . 

Quit . . . 


efield  Situation 

le  Type .  H193 

int  Adjustnent  ...  0.00 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 


Enter  -)  ?  I 


Figure  10.  Graphic  analysis  parameter  menu. 


The  GA  module  estimates  hit  probability  across  target  ranges.  Thus, 
range-dependent  parameters  are  neither  represented  nor  under  the  analyst's 
control.  Projectile  flight  data  and  target  impact  data  are  not  represented. 
The  analyst  cannot  manipulate  target  range  when  developing  a  theoretical  hit 
probability  curve.  All  hit  probability  curves  are  developed  for  target  ranges 
from  1  to  400  m  (see  theoretical  data  plot  in  Figure  6) . 
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The  GA  module  does  nor  provide  the  analyst  with  the  capability  to 
develop  aim  error  estimates  from  hit  probability  data.  The  analyst  can  use 
the  PA  module  to  perform  this  activity  and  enter  the  aim  error  estimates  in 
the  GA  module.  The  analyst  has  the  capability  to  estimate  aim  error  using 
component  values  in  the  GA  module.  Select  option  14  to  quit,  and  return  to 
the  GA  main  menu. 

Empirical  data  definition  requires  the  entry  of  a  series  of  target  range 
and  hit  probability  data.  Figure  11  shows  the  empirical  data  definition  menu. 
From  this  menu,  the  analyst  can  enter  or  retrieve  empirical  data.  This  MATAS 
capability  allows  the  analyst  to  compare  data  sets  to  theoretical  results. 


Define  ENpipical  Data 


'  Enter . 1 

-  Retrieve  .  2 

Store .  3 

Qui t  iifiiiiiiiiiiiiiiitiiiiiiitii  4 


Enter  --)  ?  I 


Figure  11.  Empirical  data  definition  menu. 


The  plot  functions  available  to  the  analyst  from  the  GA  main  menu 
include  the  following: 

review  hit  probability  data 
select  curve (s)  to  plot 

include/exclude  theoretical  and  empirical  data  in  a  plot 
display  a  plot 


In  the  PA  module,  the  analyst  established  the  probability  of  “.cing  a 
150-m  target  given  a  specified  battlefield  situation.  In  the  G.4  , ule,  the 
analyst  can  examine  hit  probability  for  all  targets  ranging  from  1  to  400  m. 
Select  function  1  to  recreate  the  battlefield  situation  used  in  the  PA  module. 


Select  Function 
Define  Data 

Theoretical  1 1 ■ ■ ■ i • i ■ » ■ ■ i >  ■ « 1 1  ■  ■  ■ . .  i  ■  1 1 1  ■ .  ■  ■  ■  i  1 

Enpirical  . Not  Defined . 2 

Plot  urvets) 

Select  Theoretical  Curve(s)  ..Ciirve(s)  1.2,3,.  3 

Include/Exclude  Theoretical  INCLUDE!) .  4 

Include/Exclude  Empirical  .......EXCLUDED .  5 

Display  . . 6 

Quit . 7 


Enter  --)  ?  li 
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Parameter  data  are  entered  the  same  way  as  PA  module  data.  Make  the 
following  changes  to  set  up  the  battlefield  situation: 

M855  projectile 
+3.0  meters/sec  crossdrift 
+2.0  meters/sec  target  speed 
2.10  mils  aim  error 


Define  Battlefield  Situation 

Projectile  luoe .  Hi93  . 

y  Aim  Point  AdJustMent  ...  8.39  h 
Hin  Point  AdjustNent  ...  8.08  n 

httlesivht  Ranye  .  250.60  h 

Crossdrift .  8.00  m/s 

laryet  Type  ...  E  Silhouette 

laryet  Height . .  1.00  m  .. 

Target  Speed .  8. 80  m/s... 

Define  Ain  Error 

Curve  1  .  1.00  Mils 

Curve  2  .  2.68  Mils 

Curve  3  .  3.00  Mils 

Store  Curve  Paraueters 
Retrieve  Curve  ParaMeters 
Quit 


I  I  I  •  I  I  «  < 


t  I  I  I  »  «  1 1 1  I  I  •  ' 


1 

2 

3 

4 

5 

6 

7 

8 

9 

18 

11 

12 

13 

14 


Enter  — )  ?  i 


Use  functions  1,  5,  G,  and  9  to  make  the  previously  stated  changes. 
When  the  four  changes  are  complete,  the  display  should  match  the  following 
display.  Store  the  curve  parameters  using  function  12.  Select  function  14  to 
quit  and  return  to  the  GA  main  menu. 


1  ’ 

Define  Battlefield  Situation 

Projectile  lyi 

pe  .  H855  . 

1 

y  Aim  Point  A( 

IjustMent  ...  0.00M.... 

2 

V  Aim  Point  AdjustMent  ...  9.08  m.... 

3 

Battlesiyht  Range . .  250.00  n  .... 

4 

Crossdrift  .. 

5 

Target  Type  . 

.  £  Silhouette  . 

6 

Target  Height 

itiiiiiiti  ii 60  H  1 1  •  1 1 1 1 

7 

Target  Speed 

( •  •  1  2  *  ^0  S  1 1 1 1  •  1 1 1 

8 

Define  AiM  Error 

Curve  1  . 

2 1 10  Nl Is  . . . . . . . . . 

9 

Curve  2  . 

2 1 00  nils  iiiiitiiiiiii 

18 

Curve  3  . 

3.00  Mils  . . 

11 

Store  Curve  ParaMeters . . . 

12 

Retrieve  Curve  Paraneters . . . 

13 

Qm i ^  •  1 • •  [11 

14 

Enter  — )  ?  14| 
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with  the  battlefield  situation  established,  the  analyst  can  review  the 
theoretical  results  and  can  choose  which  curves  to  plot.  Select  function  3 
from  tlie  GA  main  menu. 


Select  Function 
Define  Data 

Ilieopeticai  . .  1 

EHPii^ical  1 1 1 1 1  ••  1 1  •  Not  Definediiiiiiiiiiiiiii  2 
Plot  Curvets) 

Select  Theoretical  Cupve(s)  .. Curvets)  1.2,3..  3 

Include/Exclude  Theoretical  . INCLUDED . 4 

Include/Exclude  EMpirical  . EltCLUDED . 5 

Display  . . . S 

Qui t  . . .I..... ...........................  7 


Enter  -)  ?  3| 


The  following  display  presents  hit  probability  estimates  generated  by 
the  specified  battlefield  situation.  Estimates  are  calculated  for  eight 
targets  beginning  with  a  50-m  target,  progressing  in  50-m  increments  to  400  m. 
MATAS  generated  three  sets  of  hit  probability  data  based  on  the  three  aim 
error  values.  The  data  generated  by  the  2.10-mil  aim  error  value  comprise 
curve  1.  Curves  2  and  3  contain  data  generated  by  the  default  aim  error 
values  of  2.0  and  3.0  mils,  respectively.  The  analyst  can  choose  the  curve (s) 
to  plot  using  the  functions  at  the  bottom  of  the  display.  Enter  a  1  to 
designate  curve  1  as  the  curve  to  plot. 


HIT  FROBflBILITy  BV  RANGE  AND  AIN  ERROR 


Theoretical  Curves 

1 

2 

3 

AiM  Error  (nils) 

2.10 

2.00 

3.00 

Hit  Probability 

Ranye  (neters) 

1 

l 

•/ 

50 

1.00 

0.98 

0.87 

100 

0.98 

0.73 

0.48 

150 

0.87 

0.48 

0.27 

200 

0.73 

0.32 

0.16 

250 

0.59 

0.22 

0.11 

300 

0.48 

0.18 

0.08 

350 

0.39 

0.12 

0.06 

400 

0.32 

0.10 

0.04 

Select  Theoretical  Curvets)  To  Display 

1  *  Curve  1  4  -  Curves  14  2  7  -  Curves  1,  2,  1 3 

2  -  Curve  2  5  -  Curves  113  8  *  Quit 

3  -  Curve  3  6  -  Curves  2  4  3 

Enter  --)  ?  1| 
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The  GA  main  menu  shows  that  the  curve  1  hit  probability  data  will  be 
included  in  the  plot.  Since  no  empirical  data  were  defined,  the  empirical 
curve  is  excluded  from  the  plot.  Select  function  6  to  display  curve  1. 


.8 

,6 

PH 

.4 

.2 


This  graphic  demonstrates  how  hit  probability  decreases  as  range 
increases  given  the  battlefield  situation.  What  would  the  curve  be  if  aim 
error  were  3.5  or  5.0  mils?  Hit  any  key  to  return  to  the  GA  main  menu. 

Select  function  1  from  the  GA  main  menu.  Then  select  function  10  from 
the  GA  parameter  menu,  and  enter  an  aim  error  of  3.5  mils. 


CURVE  1:  2.19  Nils 


ROE  59  190  150  200  259  209  350 


I  Current  Ain  Error  For  2nl  Curve  2.99  nils  ! 

!  I 

1  Enter  <cr>  To  Keep  Current  Value  j 

1  I 

I  Or  Enter  Neu  Ain  Error  (in  Nils)  I 

1^ _ ^ _ ! 

Enter  •->  ?  3.5| 

Select  function  12,  and  enter  an  aim  error  of  5.0  mils. 


Current  Ain  Error  For  M  Curve  3.00  nils 
Enter  (cr)  To  Keep  Current  Value 
Or  Enter  Neu  Ain  Error  (in  nils) 

Enter  --)  ?  5.8| 
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Select  function  3  from  the  GA  main  menu.  From  the  theoretical  curve 
menu,  select  option  7  to  designate  curves  1,  2,  and  3  as  the  curves  to 

display . 


HIT  PROBABILIIV  BV  RANGE  AND  AlH  ERROR 


Theoretical  Curves 

1 

2 

3 

AIn  Error  (nils) 

2.10 

'3.50 
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•/ 
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Ranye  (neters) 
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0.98 
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SO 

0.98 

0.87 

100 

0.70 

0.73 

0.48 

150 

0.45 

0.48 

0.27 

200 

0.30 

0.32 

0.16 

250 

0.21 

0.22 

0.11 

300 

0.1S 

0.16 

0.08 

350 

0.11 

0.12 

0.06 

400 

0.09 

0.10 

8.04 

Select  Theoretical  Curve(s)  To  Display 

1  -  Curve  1  4  -  Curves  1  S  2  ?  -  Curves  1,  2,  4  3 

2  -  Curve  2  5  -  Curves  1  4  3  8  -  Quit 

3  *  Curve  3  6  -  Curves  2  4  3 

Enter  ••)  ?  7| 


Enter  option  8  to  quit  and  return  to  the  GA  main  menu.  The  main  menu 
shows  that  all  three  curves  will  be  included  in  the  plot.  Select  function  6 
to  display  the  hit  probability  curves,  and  hit  any  key  to  return  to  the  GA 
main  menu. 


CURVE  1  :  2.10  Nils  CURVE  2  =  3.58  Nils  CURVE  3  :  5.00  Nils 
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Empirical  Data  Definition 


MATAS  can  also  plot  empirical  target  range  and  hit  probability  data. 
Suppose  the  analyst  wanted  to  examine  the  data  shown  in  Table  1 . 

Table  1 

Target  Range  and  Hit  Probability  Data 


Target  range  (m) 

Hit  probability 

25 

1.00 

50 

1.00 

75 

0.95 

100 

0.90 

125 

0.82 

150 

0.75 

175 

0.63 

200 

0.52 

225 

0.47 

250 

0.39 

275 

0.35 

300 

0.29 

325 

0.23 

350 

C.15 

375 

0.12 

400 

0.09 

Select  function  2  from  the  GA  main  menu  to  bring  up  the  empirical  data 
definition  menu. 


Select  Function 
Mine  Data 

Theoretical  . . 1 

EMPirical  . Not  Defined. . 2 

Plot  Curvets) 

Select  Theoretical  Curvets)  ..Curvets)  1.2,3..  3 

Include/Exclude  Theoretical  . INCIilDEP . 4 

Include/Exclude  Eiipirical . KCUIDED . 5 

Display . S 

Quit  . 7 


Enter  — )  ?  2| 


Select  option  1  and  enter  the  25-m  target  range. 

1^  ! 

!  Enter  Target  Range  ti  -  4N  n)  i 
!  ! 

!  Or  Enter  ter)  To  Quit  ! 


Enter  --)  ?  25| 
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On  the  display  that  follows,  enter  the  corresponding  1.0  hit 
probability . 


Enter  Hit  Probaliility  (0  - 1) 


Enter  -)  ?  1.01 


Enter  the  remaining  range  and  hit  probability  pairs  in  the  same  manner. 
When  data  entry  is  complete,  enter  a  <cr>  to  quit,  and  review  the  empirical 
data  summary  table. 


TABLE  OF  ENFimCAL  BATA  POINTS 


Point  Ramoe  Hit  FrobaLility 

»  (1  ‘  400  N)  (0  -  1) 


1 

25 

1.00 

2 

50 

1.00 

3 

75 

0.95 

4 

100 

0.90 

5 

125 

0.82 

6 

150 

0.75 

7 

175 

0.83 

8 

209 

0.52 

9 

225 

0.4? 

10 

250 

0.39 

Continued  Next  Page 

1  -  Page  1 

4-  Add 

7  •  Retrieve 

2  ■  Page  2 

5  •  Delete 

8  -  Store 

3  *  Page  3 

6  “■  Hodify 

9  -  Quit 

Enter  ->  ?  2| 


The  summary  table  presents  the  first  10  data  pairs.  Select  option  2  to 
review  the  remaining  data . 


TABLE  OF  ENFIRICAL  BATA  POINTS 


Point 

0 

Range 

(1  ’  400  N) 

Hit  Probability 
(0  •  1) 

11 

275 

0.35 

12 

300 

0.29 

13 

325 

0.23 

14 

350 

0.15 

15 

375 

0.12 

16 

400 

0.09 

1  -  Page  1 

4 '  Add 

7  -  Retrieve 

2  -  Page  2 

5  -  Delete 

8  -  Store 

3  -  Page  3 

6  *  Modify 

9  -  Quit 

Enter  -->  ?  8| 
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Correct  any  data  entry  errors  using  the  add,  delete,  and  modify  edit 
functions,  when  satisfied  with  the  accuracy  of  the  data,  use  function  8  to 
store  the  data.  Select  option  9  to  quit  when  editing  is  complete. 


Select  Function 
Define  Data 

Ilieoretical  . 

EHPiPicai  ..........  Defined  . 

Plot  Cum(s) 

Select  IheoMtical  Cupve(s)  ..Curuels)  1.2,3..  3 

Include/Exclude  fheopetical . iiiCLllDED . 4 

Include/Exciude  EMpirical  . ..INCUIDED .  5 

Display 
Quit 


>  I  t  I  I  i  I  I  t  I  I  «  I  •  I  I  I  •  I  •  I  a  I  I  I  I  I  •  1  I  I  I  I  I  I  I  I  I  I  I  I  I  I 


Enter  -)  ?  6| 


On  the  GA  main  menu,  toggle  functions  4  and  5  to  exclude  the  theoretical 
curves,  and  include  the  empirical  curve  in  the  plot.  Select  function  6  to 
display  the  empirical  curve. 


The  analyst  may  want  to  determine  the  approximate  aim  error  associated 
with  this  empirical  hit  probability  curve.  This  is  accomplished  in  the  GA 
module  by  plotting  several  theoretical  curves  with  analyst-defined  aim  error 
values.  Through  this  trial-and-error  process,  the  analyst  is  essentially 
performing  a  curve  fitting  function  which  yields  an  estimate  of  aim  error. 
Hit  any  key  to  return  to  the  GA  main  menu 
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From  the  main  menu,  toggle  function  4  to  include  the  theoretical  curves 
in  the  plot.  Select  function  6  to  display  all  four  curves. 


CURVE!:  2.10  mis  CURVE  2 :  3.50  mis  CURVE  3  :  5.00  mis 


inspection  of  the  four  curves  reveals  that  curve  1,  with  an  aim  error  of 
2.10  mils,  most  closely  approximates  the  empirical  curve.  The  empirical  curve 
appears  to  be  3/4  mil  les.s  than  the  curve  1  aim  error.  To  obtain  a  better 
estimate,  the  analyst  can  change  the  aim  error  values  for  the  theoretical 
curves  to  move  them  closer  to  the  empirical  curve.  Hit  any  key  to  return  to 
the  GA  main  menu. 

Select  function  1  to  enter  the  GA  parameter  menu.  Select  functions  9 
and  10  from  the  parameter  menu  to  change  the  curve  1  and  curve  2  aim  error 
values  to  1.0  and  1.5  mils,  respectively.  When  these  changes  are  complete, 
select  function  14  to  return  to  the  GA  main  menu. 


1 

1  Define  Battlefield  Sitnntion 

Projectile  ly 

pe  .  H855  .... 

.  1 

X  ftjH  Point  !i 

Ijustment  ...  0,00  m  .. 

.  2 

y  Ain  Point  Adjiutnent  ...  0.80  n  .. 

,  3 

Battlesight  Range . 250.00  n.. 

.  4 

Crossdrift  .. 

,  5 

Target  Igpe  . 

.  E  Silhouette 

.  S 

Target  Height 

.  1.00  H  . 

.  7 

Target  Speed 

....  2.00  m/s . 

.  8 

Define  Ain  Error 

Curve  1  . 

1.00  mils  . 

,  3 

Curve  2 . 

1.50  mils  . 

.  10 

Curve  3  . 

5.00  mils  . 

.  11 

Store  Curve  Parameters  . 

.  12 

Retrieve  Curve  Parameters  . . 

.  13 

9uit  . 

1 

1 

.  14 

Enter  --)  ’  HI 
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From  the  GA  main  menu,  select  function  3  to  enter  the  theoretical  curve 
menu.  Select  option  4  to  designate  curves  1  and  2  as  the  curves  to  plot. 
Select  function  0  to  quit  and  return  to  the  GA  mein  menu. 


HIT  PHCBflBILIiy  BV  RftKCE  AND  AIN  ERROR 


Theoretical  Curves 

1 

2 

3 

Ain  Error  (nils) 

1.00 

1.50 

Hit  Probability 

7. 

5.00 

Ranye  (neters) 

■/ 

y, 

50 

1.00 

1.00 

0.99 

100 

0.94 

0.87 

0.80 

150 

8.76 

0.66 

0.56 

200 

0.59 

0.48 

0.39 

250 

0.45 

0.35 

0.28 

380 

0.35 

0.2? 

0.21 

359 

0.28 

0.21 

0.16 

400 

0.22 

0.16 

0.12 

Select  Theoretical  Curve(s)  To  Display 

1  *  Curye  1  4  *  Curves  14  2  ?  ■*  Curves  1,  2,  4  3 

2  -  Curve  2  5  -  Curves  1  4  2  8  *  Quit 

3  -  Curve  3  6  -  Curves  2  4  3 

Enter  -*>  ?  4| 

Select  function  C  to  display  the  curves. 

CURUEl:  l.eeHils  CUR0E2:  1.38  nils 


X  \ 
t  N. 


\ 

X  ''x,  OIRUE  2 


XCURUE  1 


RGE  50  100  150  280  250  300  350 

Theoretical  hit  probability  curve  2  closely  approxifsates  the  empirical 
cjtve.  From  this,  the  arialyst  can  conclude  that  the  aim  error  associated  with 
this  data  set  is  slightly  less  than  l.b  mils. 


Ihe  preceding  exercises  provide  the  analyst  with  an  understanding  of 
MATA?  capabilities.  These  exercises  show  how  MATAS  functions  as  a  tool  which 
can  analyze  the  functional  relationship  between  aiming  and  tracking 
performance  and  a  variety  of  weapon  system  and  battlefield  parameters. 
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APPENDIX  A 

MARKSMANSHIP  AIMING  AND  TRACKING  ANALYSIS  SYSTEM  FLOW  CHART 
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41 


_ t _ 

COMPUTE 
TRAJECTORY 
OF  ROUND 


COMPUTE 
AIM  POINT 


COMPUTE  HIT 
PROBABILITY 


DISPLAY  AIMING 
ERROR  MODEL 
MENU  ONTO  CRT 


Purpose:  Defines  round  type  characteristics 
and  computes  the  trajectory  in  x  and  y,  time 
of  flight,  and  velocity  of  round. 

Inputs :  Battlesight  and  target  range,  round 

characteristics,  cross  drift. 

Outputs :  X  and  y  trajectory  and  offsets  to 

that  trajectory. 


Purpose :  Adjusts  aim  point  on  target  based 

on  X  and  y  trajectory  and  offsets  to  that 
trajectory. 

Inputs :  X  and  y  trajectory  and  offsets  to 

trajectory. 

Outputs :  X  and  y  aim  point. 


Purpose :  Computes  hit  probability. 

Inputs  :  Target  dimensions,  x  and  y  aim 

point,  and  radial  standard  deviation. 

Outputs :  Hit  probability. 


Purpose :  Defines  parameter  analysis  model 
status,  allows  changes  in  battlefiald 
situation . 

Inputs :  Battlesight  and  target  range,  round 
and  target  type,  cross  drift,  target  speed, 
aim  error,  hit  probability,  aim  point, 
adjustment  to  aim  point,  time  of  flight, 
velocity  of  round,  initial  pitch  angle  of 
round,  target  dimensions. 

Outputs :  Parameter  analysis  model  status 
and  selected  function. 
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MODIFY 
BATTLESIGHT  RANGE 
AND  ROUND  TYPE 


44 


Purpose:  To  Change  or  view  current  round 
type 

Input :  Round  type 

Output :  Round  type 


Purpose :  To  change  or  view  current  battle- 
sight  range 

Input  :  Battlesight  range 

Output :  Battlesight  range 


Input  ; 
Output: 


To  change  or  view  currenct  cross 
drift  speed. 

Cross  drift  speed 
Cross  drift  speed 
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MODIFY 

TARGET 

TYPE 


MODIFY 

TARGET 

HEIGHT 


MODIFY 

TARGET 

RANGE 


Eurpose: 

To  change  or  view 
type 

current 

target 

Incut: 

Target  type 

Q.UtPUt : 

Target  type 

Purpose : 

To  change  or  view 
height 

current 

target 

Target  height 

Output; 

Target  height 

gucp-ose : 

To  change  or  view 
speed 

currenct 

target 

Input: 

Target  speed 

Output: 

Target  speed 

MODIFY 

TARGET 

SPEED 


Compute  hit  probability 
Target  dimensions,  x,y  aim  point, 
and  linear  aim  error 
Hit  probability 


Displays  history  of  aim  error  with 
associated  hit  probability 
Initial,  user-defined,  and  final 
aim  error  and  their  associated  hit 
probability 

Displays  initial,  user-defined, 
and  final  aim  error  with  associated 
hit  probability 
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48 


Displays  10  component  names 
and  values  depending  on  page 
number 

Page  number,  component  names 
and  values 


LAST  RECORD  SET 


DELETES  SPECIFIED  RECORD 
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STORE 
COMPONENT 
NAME  AND  VALUES 


PurDQSfi : 
Ijgput: 
Output ! 


To  stora  component  names  and  values 
in  file  "ACDAM.EST"  or  "AEMOL.EST" 
rile  Idantification,  component  names 
and  values 
N/A 
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Purpose :  To  change  or  view  current  hit 
probability 

Input :  Hit  probability 

Output :  Hit  probability 


Purpose :  Cortqputes  new  aim  error  based  on 
desired  hit  probability 
Input :  Hit  probability  and  equivalent 

area  circle  of  the  target  type 
Output !  Aim  error 


Purpose :  To  change  or  view  current  x  aim 
point  adjustment 
Input :  X  aim  point  adjustment 

Output :  X  aim  point  adjustment 


Purpose :  To  change  or  view  current  y  aim 
point  adjustment 
Input :  y  aim  point  adjustment 

Output :  Y  aim  point  adjustment 
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PiirposA ; 
Input : 
Qutp-Ut : 


To  scale  and  translate  target 
points  onto  Cartesian  graph 
Target  shape  in  screen 
coordinate  data 

Adjusted  target  coordinate  data, 
screen  display  two-dimensional 
Cartesian  graph 


Purpose :  To  output  x,y  axis  labels 

Input :  None 

Output :  Screen  display 


Purpose :  To  output  target  shape  onto 
screen 

Input :  Adjusted  target  coordinate  data 

Output :  Screen  display 


guirpQse : 


Input.: 
Output : 


To  output  40,86,99%  circles, 
aim  point,  and  supporting  docu¬ 
mentation  to  screen 
X, y  aim  point 
Screen  display 


DISPLAY  GRAPHIC 
ANALYSIS  MENU 
FUNCTION 


Purpose: 


Input : 
Output : 


To  allow  user  to  define 
theoretical/empirical  data  as  well 
as  graph  those  data 
N/A 

Function  code,  screen  display 


DEFINE 
THEORETICAL 
DATA  ^ 


DEFINE 
EMPIRICAL 
DATA  ^ 


SELECT  ^ 
THEORETICAL 
CURVES  ^ 


“^NCL/EXCL 
THEORETICAL 
.  CURVES  ^ 


Purpose :  To  display  function  menu  of 

system  parameters  as  well  as 
their  current  status 

Input :  Projectile  type,  x,y  ain-  point 

adjustment  battlesighr.  range, 
cross  drifu,  target  type,  target 
height,  target  speed,  curve  1,2,3 
aim  error 

Output :  Screen  display,  function 

identification 


12 
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DEFINE  TARGET 
HEIGHT 


Purpose :  To  change  or  view  current 
projectile  type 
Incut :  Projectile  type 

Qutpyt:  Projectile  type 


Purpose  To  change  or  view  current  x  aim 
point  adjustment 

T npuf. :  X  aim  point  adjustment 

Output :  X  aim  point  adjustment 
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MODIFY 
Y  AIM  POINT 
ADJUSTMENT 


MODIFY 

BATTLESIGHT 

RANGE 


9 

MODIFY 
CROSS  DRIFT 
SPEED 


Purpose :  To  change  or  view  current  y  aim 
point  adjustment 
Input :  Y  aim  point  adjustment 

Output :  Y  aim  point  adjustment 


Purpose:  To  change  or  view  current 
hattlesight  range 
Input :  Battlesight  range 

Output :  Battlesight  range 


Purpose :  To  Change  or  view  current 
cross  drift  speed 
Input :  Cross  drift  speed 

Output :  Cross  drift  speed 


MODIFY 

TARGET 

TYPE 


MODIFY 

TARGET 

HEIGHT 


MODIFY 

TARGET 

SPEED 


PurDn«?ft : 

To  change  or  view  current 

target  type 

Input : 

Target  type 

Output : 

Target  type 

Purpose ; 

To  change  or  view  current 

target  height 

Input ! 

Target  height 

OlltPMt  : 

Target  height 

Puicpse: 

To  change  or  view  current 

target  speed 

Input : 

Target  speed 

Output: 

Target  speed 

STORE 
BATTLEFIELD 
PARAMETERS  IN  FILE 


i 


RETRIEVE  BATTLE¬ 
FIELD  PARAMETERS 
FROM  FILE 


DISPLAY 
EMPIRICAL 
DATA  MENU 
FUNCTION 


Purpose :  To  store  battlefield  situation 

parameter  data  and  aim  error  for 
each  curve  in  file  "BATCOND.DAT" 

Input :  Projectile  type  and  identification 

code,  x,y  aim  point  adjustment, 
battlesight  range,  cross  drift  speed, 
target  type  and  identification  code, 
target  dimensions,  target  speed,  and 
aim  error  for  curves  1,2, and  3. 

Output :  "BATCONE) .  DAT" 


Purpose :  To  retrieve  battlefield  situation 
parameter  data  and  aim  error  for 
each  curve  in  file  "BATCOND.DAT" 
Input.:  N/A 

Output :  Projectile  type  and  identification 

code,  x,y  aim  point  adjustment, 
battlesight  range,  cross  drift  speed, 
target  type  and  identification  code, 
target  dimensions,  target  speed,  and 
aim  error  for  curves  1,2,  and  3. 


Purpose :  To  display  empirical  function  menu 
Input :  N/A 

Output :  Screen  display,  function 

identification 


61 


62 


ENTER  TARGET 
RANGE  VALUE 


1 . 

> 

1 

i 

ENTER  AS 
HIT  PRO 

SOCIATED 

BABILITY 

— 

gunpQse: 

Input : 
QatPUL : 


To  extract  previously  defined 
empirical  data  from  file 
N/A 

Empirical  data 


LAST  ENTRY  SET 


DELETES  SPECIFIED  RECORD 


LAST  ENTRY  SET 


EDIT  MODE  SET 


DISPLAY  THEORETICAL 
CURVE  DATA  AND 
DEFINE  CURVE  TO 
DISPLAY 


I 


Purpose :  To  display  theoretical  curve  data  and 
menu  of  curves  to  be  plotted 
Input :  Theoretical  curve  data 

Output :  Display  screen,  selected  curve 


Purpose :  Determines  whether  to  include /exclude 
theoretical  curve  dispJ.*' 

Input :  Theoretical  curve  plot  ,g 
Output :  Theoretical  curve  plot  flag 


ScT  FLAG  TO  INCUEXCL 
EMPIRICAL  CURVE 
DISPLAY 


lUEiUt: 

.01311211!;: 


DeteiTr.iaes  whether  to  include/exclude 
orpir'cul  curve  display 
Empirical  curve  plot  flag 
Ei.ipiric..il  -^urve  plot  flag 


YES 


Puip.ose : 
InpMLa : 


To  display  empirical  curve  data 
on  screen 

Empirical  curve  data 
Screen  display 
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APPENDIX  B 

MARKSKANSHIP  AIMING  AND  TRACKING  ANALYSIS  SYSTEM  CODE 


b 


10 

£’0 

30 

'*0 

51 

52 
eO 
Sc 
£3 

54 

I  i 

72 

i3 

74 

75 

76 

77 
aO 
81 
82 

83 

84 

55 


'fil.lINB  ERROR  NODEL  VERSION  6.0  -  EGA  COLOR  GRAPHICS  (WITH  ’lA-H  CDWCCEESC?;- 
’6  JUNE  1987 

’COMBINATION  OF  JOa  KALB'S  AND  SANDER  REINHARTZ'S  AIN  ERROR  PROGRAMS. 

'AUTHORS  »  JEFFERY  L.  NAXEY,  SR.  t  SANDER  REINHARTZ 
SCREEN  8 
COLOR  15,1 
OPTION  BASE  1 

DIM  XPT(9),  YPT(9),  NXPTSO).  NYPTS(9),  ?L0TX(3.2M>.  PLOTY  (3, 200) .  DAT  .'3. 200/ 
DIM  fiDXPLT(30),  ADYPLT(30),  PLTXX(30),  PLTYXISW,  SIGMAl(3),  Cl(4i.  PLANK* (22; 
DIM  CNAMEI(3,30),  CVALUE(3,30),  TFACT0R(3),  TDUM«Y(3).  DNA)€*(3.30).  DVAUjE!3.30) 
RB  =  250 


VU  =  0 


IDENTIFY  BA7TLE5IGHT  RANGE 
IDENTIFY  CROSSDRIFT 


VR  =  0 
PJ  =  1 

Ti'PE*  =  •  E  Silhouette 
RD*  =  "M193" 

FLAGS  =  0 
SIGMA  =  1 
TSTNO  =  1 
AET  =  0 
SIGMAKl)  -  1 
SIGMAKB)  =  2 
5I6MA1(3)  =  3 


IDENTIFY  TARGET  SPEED 
INITIALIZE  PROJECTILE  ID  CODE 
IDENTIFY  TARGET  TYPE 
IDENTIFY  ROUND  TYPE 

INITIALIZE  AIN  ERROR  FOR  PERFORMANCE  MODa 

E-TYPE  SILOUETTE  CODE 

TOTAL  ESTIMATED  AIM  ERROR 

INITIALIZE  1ST  TJCORETICAL  CURVE  AIM  ERROR 

INITIALIZE  2ND  -nCORETICAL  CURVE  AIN  ERROR 

INITIALIZE  3RD  -nCORETICAL  CURVE  AIM  ERROR 


86  SNO  ::  1 

87  TCURVE*  =  "Curveis)  1,2.2" 

86  aURVE*  s  "Not  Defined" 


89 

CIX  s  0 

n 

CIY  =  0 

■21 

G 

X 

II 

?2 

CJY  =  0 

59 

3  =  1 

'  INITIALIZE  TARGET  HEIGHT 

100 

A  =  .466*6 

’  INITIALIZE  TARGET  WIDTH 

lie 

N  =  INT(B) 

111 

IF  N  {  1  THEN  N  =  1 

1 12 

C  =  .256*B 

'  INITIALIZE  TARGET  HEAD  HEIGHT 

113 

D  =  .211*6 

’  INITIALIZE  TARGET  HEAD  WIDTH 

114 

GOSUB  11650 

'  RffRESH  SCREEN 

115 

PRINT  " 

MARKSMANSHIP  AIMING  AND  TRACKING  ANALYSIS  SYSTEM"  :  PRINT  "  " 

118 

PRINT  " 

DEVaOPED  BY"  ;  PRINT  “  " 

113 

PRINT  " 

JEFREY  MAXEY  SANDER  REINHARTZ"  :  PRINT  "  " 

120 

PRINT  " 

GENE  CUCCARRESE*  :  PRINT  "  " 

121 

PRINT  " 

ADVANCED  TECHNaOSY,  INC.,  ORLANDO,  fl.  32803"  :  PRINT  "  " 

122 

PRINT  " 

JOa  KALB  JIM  TORRE"  t  PRINT  "  " 

123 

PRINT  " 

U.  S.  ARMY  HUMAN  ENGINEERING  LABORATORY*  ;  PRINT  "  " 

124 

PRINT  " 

FOR*  !  PRINT  "  * 

125 

PRINT  * 

U.  S.  ARMY  PM  TRADE  i  U.  S.  ARMY  «jNAN  ENGINEERING  LABORATORY*  :  PRINT 

126 

PRINT  • 

(INITIALIZING)* 

127 

BLANKKl)  > 

II  H 

130 

BLAM<t(2)  « 

■  « 

131 

BLANK* (3)  > 

M  H 

132 

6LAIi(«(4)  > 

i  M 

133 

BLANK* (5)  s 

■  N 

134 

BLAM<«(6)  « 

■  • 

135 

BLANK* (7)  * 

«  ■ 

136 

BLANKKS)  • 

i  11 

N 


71 


137 

BLPNK$(9)  =  " 

13d 

BLflNKI(10)  =  “ 

139 

BLflNK$(ll)  =  " 

I4d 

BLA)«<$(12)  =  " 

141 

BLfiNK$(13)  =  " 

\hi 

BLANKS!  14)  =  “ 

II 

143 

BLANKS!  15)  =  “ 

II 

1*4 

BLANKS!  16)  =  ' 

145 

BLANKS!  17)  =  " 

n 

146 

BLANKS118)  =  ' 

II 

14? 

BLANKS!  19)  =  " 

II 

146 

BLA,'fl<S!20)  =  " 

n 

149 

BLANKS  !21)  =  " 

II 

150 

BLA»<4122)  =  " 

■ 

151 

BLANKJ!23)  =  ’ 

II 

152 

AOOEC  :  0 

’  INITIALIZE  PLOT  EMPIRICAL  CURVE  DATA 

153 

ADDTC  =  1 

’  INITIALIZE  PLOT  THEORETICAL  CURVE  DA 

154 

STSECS  =  -EXCLUDED" 

155 

STSTCS  =  "INCLUDED" 

156 

SORND  =  1 

157 

GM  =  7 

ise 

PSTA  =  1 

159 

PB)0  =  3 

160 

FOR  PN  =  1  TO  3 

161 

60SUD  15560 

162 

NEXT  PH 

163 

PHT  =  5 

164 

30SUB  11650 

’  REFRESH  SCREEN 

165 

t 

170 

’  DISPLAY  .HAIN  MDDEL  ?1£NU 

ise 

« 

190 

PRINT  “ 

" 

192 

PRINT  "  1 

1  " 

193 

PRINT  "  1 

Select  Model  Dot  ion  1" 

194 

PRINT  "  ! 

1  " 

200 

PRINT  -  1 

Parameter  Analysis .  1  1* 

210 

PRINT  •  1 

Graonic  Analysis . . .  2  1" 

220 

PRINT  "  1 

Quit  Model  . .  3  1" 

221 

PRINT  '  i 

222 

ORINT  ■'  " 

230 

INPUT  - 

Enter  -)  "iGTYPE  '  IDENTIFY  MODa 

240 

IF  GTYPE  (  1  UR  GTYPE  >  3  THEN  GOTO  155  ’  ERROR  CONDITION  EXISTS 

250 

IF  STYDE  =  2  Tr£N  KEY  OFF  : 

GOTO  4270  ’  RIMING  ERROR  DATA  ANALYSIS 

260 

IF  STYPE  =  3  THEN  GOTO  P'He 

’  EXIT  WDa 

270 

< 

2B0 

»  PERFORM  AIMING  ERROR  .Wa 

290 

1 

310 

*ttXXR£S  =  640  ;  MAXYRES  =  200  ’  SCREEN  !«X  RESOLUTION  X  &  Y 

320 

ASPECTRATIO  =  4/3 

’  SCREEN  RATIO  OF  X  TO  Y 

400 

R  =  250 

’  TARGET  RANGE 

420 

PN  =  1 

*50 

PI  =  3.141593 

'  CONSTANT  VALUE  FOR  PIE 

460 

CIX  =  i 

’  X  ZERO  AIN  POINT 

470 

CIY  =  0 

’  Y  ZERO  AIM  POINT 

•ttki 

CJX  =  ? 

’  X  ADJUSTED  ZERO  AIM  POINT 

72 


c:v  =  ? 

’  Y  ADJUSTED  ZERO  flIH  POINT 

=:G«fl  =  1 

>  AIN  ERROR  OR  STANDARD  DEVIATION 

!;? 

TQL  =  .  0001 

>  CONSTANT  TOLERANCE  VALUE 

:£0 

MflXCNT  =  .0 

::3 

«REfi  s  fl»(B-Cl+C*D 

'  AREA  OF  THE  TARGET 

9Pi)c:R  =  SQR(flREA/PI) 

111 

3C3'lJB  i870 

’  ESTABLISH  TRAJECTORY  INFO 

:b«5 

RS  =  R  4  SIOTfl  /  18 

100 

:55 

SOSUB  3320 

’  ADJUST  X  1  Y  ZERO/ZERO  POINTS 

ZIZ 

GflSbS  2730 

'  ESTABLia  HIT  PROBABILITY 

-:50 

C'uS^jB  2500 

•  DISPLAY  AIMING  ERPOR  .NODEL  ffiNU  ON  SCREEN 

:i0 

y  CHOICE  =  1  THEN 

GQ6UB  730  ! 

GCSoB  760  :  GOSUB  870  '  IDENTIFY  BATTLESIGHT  RANGE  I  ROUND 

SlM 

IF  CHOICE  =  2  TViEN 

GOSUG  940  : 

GOSUB  B7e  •  IDENTIFY  CROSSORIFT  SPEED 

i:2 

IF  CHOICE  =  2  THEN 

GOSUB  1090  i 

GOSUG  1250  :  GOSUG  870  •  IDENTIFY  TARGET  CHARACTERISTICS 

IF  CHOICE  =  4  rr£N 

GOSUB  1430  : 

GOSUB  1540  :  GOSUB  870  <  IDENTIFY  TARGET  RANIS  /  SPEED 

£:■« 

IF  CHOICE  =  5  THEN 

GOSUB  1690 

'  COMPUTE  AIN  ERROR 

IF  CHOICE  =  6  "HEN 

GOTO 

1930 

’  COMPUTE  HIT  PROBABILITY 

IF  CHOICE  =  7  THEN 

GOSUB  2190 

GOSUB  870  *  ESTABLISH  ADJUSTMENT  TO  AIM  IN  X  i 

669 

IF  CHOICE  =  a  IHEN 

GOSUB  5240 

•  DRAU  AIMING  ERROR  MODEL  GRAPH 

670 

IF  CHOICE  =  9  THEN 

GOTO  71 

’  RETURN  TO  MAIN  MENU 

660 

IF  CHuiCE  (  1  OR  CHOICE 

)  9  THEN  SOTO  5B0  ’  ERROR  HANDi^R 

690 

GCTO  580 

<  RETURN  TO  AIMING  ERROR  MODEL  MENU 

700 

1 

7!0 

’  IDENTIR  SflTTLESIGHT  RftNGE  AND  ROUND  TYPE 

720 

'30 

SiaJB  11659 

<  q£cacSH  SCREEN 

731 

fi$  * 

■\ 

\i\  \" 

732 

PRINT 

II 

n 

"23 

PRINT 

’■ 

1  \  (1 

7*^ 

PRINT  USING  fl*j" 

1  Current  Projectile  Tyoe  'ifiD*!*  1" 

749 

PRINT 

II 

1  i" 

730 

PRINT 

II 

i  M193  Projectile .  '  1" 

752 

PRINT 

II 

!  M055  Projectile .  2 

753 

PRINT 

11 

!  AT-4  Projectile  . .  3  !“ 

754 

PRINT 

II 

1  1" 

755 

PRINT 

■  1 

1  Enter  <cr>  To  Keep  Current  Projectile  Tyoe  l“ 

756 

PRINT 

H 

;  1" 

757 

PRINT 

II 

1  Or  Enter  New  Project  lie  Type  I' 

753 

PRINT 

tl 

1  1" 

759 

PRINT  “  ’ 

763 

INPUT 

(1 

Enter  ~)  ":A« 

764 

IF  At  =  "■  THEN  GOTO  767 

765 

IF  VflL(fl»)  :  1 

OR  VflLIfl*) 

3  "HEN  GOTO  730 

766 

PJ  =  WL(A$) 

757 

IF  PJ  = :  ImEN  RD$ 

=  '’H193 

I 

763 

IF  PJ  =  2  THEN  RDi 

=  "NGSS" 

769 

IF  PJ  =  3  THEN  RD* 

=  ■ftT-4 

n 

776 

RETURN 

780 

GOSUB  11650 

’  REFRESH  SCR^N 

781 

BR  =  RB 

’  SAVE  OLD  CURRENT  BATTLESIGHT  RANGE 

702 

W  = 

"\ 

\ll#i\  X" 

783 

PRINT 

a 

784 

PRINT 

“ 

1  r 

790 

PRINT  USING  fl«:" 

1  Current  Battlesioht  Ranoe  “iRB:'  n  1" 

608 

PRINT 

" 

1  !• 

73 


-'P!M  Erster  (c*'>  To  Keeo  Current  Value 

=»:nt 

r'RI^T  '  Cr  Enter  Nett  Battlesigh 

PRINT  •'  ! _ 

PRINT  "  " 

INPbT  "  Enter  ->  ";M 

IF  it  -  ^HEM  3QTD  863 
RB  =  VRLi^t) 

IF  'STNO  £  iSND  (RB  >  1  CR  R5  >  433)  THEN  RB  =  BR  :  GOTO  783 
IF  TGT^^D  :  E  SNO  (RB  •:  1  IR  =B  )  4«031  THEN  flB  =  BR  ;  GOTO  780 
RETURN 


Or  Enter  Nett  Gattlesight  Range 


Enter  -> 


EBTRBLISH  BRLlISTICS,  hIM,  AND  HIT  PROBABILITY 


60SUB  £870 
60SUB  2320 
G03UB  3720 
RETURN 


’  ESTABLISH  TRAJECTORY  INFO 
’  RDaJST  X  &  Y  ZERO/ZERO  POINTS 
’  ESTABLISH  HIT  PROBABILITY 


IDENTIFY  CRQSSDRIFT  SPEED 


GOSUB  IlGSe 
At  =  "\ 

PRINT 

PRINT 

PRINT  USING  At!" 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT  “ 

PRINT  "  " 

INPUT 

IF  «  =  "  THEN  GOTO  1020 
VW  *  VAL(At) 

RETURN 


REFRESH  SCREEN 


I  Current  Crossdrift  Soeed  "iVKs"  a/s 


Enter  (cr>  ’o  Keeo  Current  Value 


Cr  Enter  New  Crossdrift  Soeeo  (+  or  -) 


Enter  — )  ";A$ 


•  IDEJITIFY  TARKT  CHARACTERISTICS 


GOSUB  llBSe 
At  =  “\ 

PRINT 
PRINT 

PRINT  USING  At;" 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT  "  " 


REFRESH  SCREEN 


Current  Target  Tvoe  ";TTYPEt:" 

E  Tyoe  Silhouette .  1 

F  Tyoe  Silhouette .  2 

Tank  -  Side  View  . .  2 

Tank  -  Front  View .  4 

Enter  <cr)  To  Keen  Current  Target  Type 

Or  Enter  New  Target  Tyoe 
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1192 

12M 

1201 

1202 

1203 

1205 

1206 
1207 
1245 

1250 

1251 

1252 

1253 
1260 

1270 

1271 

1272 
1260 

1290 

1291 
1300 
1310 

1320 

1321 

1322 

1  tta 
* 

1340 

1350 

1360 

1361 
1370 
1380 

1420 

1421 

1422 

1423 

1430 

1431 

1432 

1433 

1434 
1440 

1450 

1451 

1452 
1460 

1470 

1471 
1460 
1490 
1500 
1510 
1520 
1530 
1535 


INPUT  "  2m sr  - 

IF  fW  =  ■'“  THEN  Gt)T2  1253 

IF  VflL(flt)  (  1  OR  ;  -  >.EN  3CTO  ;C90 

TGTNO  =  VfiLift*) 

IF  TG7N0  =  1  THIN  “T/PEt  =  E  Eil-ouet:? 

IF  TGTNO  =  2  THEN  TTYPES  =  "  -  Sil'ouetxe 

IF  TGTNO  =  2  THEN  'TYPES  =  "  'ann  -  Sice  Jiew' 

IF  TGTNO  =  4  THEN  -TYPES  =  "’’ar.K  -  ^'cn;  -le-^ 

REURN 

GOSUB  11650  ■  ="'£5.'’  EC-EE'. 

At  =  "\ 

PRINT  "  _ 

PRINT 

PRINT  USING  RS!^ 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT  ■  ■ 

1I«)UT 
IF  At  =  ■■  THEN  1330 
HT  =  VAL(At) 

IF  HT  (  1  UR  HT  >  10  THEN  6DTO  1250 
D  =  HT 

IF  TBTND  =  1  THEN  A  =  .Ae€*B  :  C  =  .256*6  ;  D  =  .2tUB 

IF  TGTNO  =  2  THEN  A  =  1.344tB  ;  C  *  .5625*8  ;  D  =  .»375*B 

IF  TGTNO  =  3  THEN  A  »  2.69*B  :  C  =  .359*6  :  D  =  .a4;»6 

IF  UTNO  =  4  TEN  A  a  1.206*B  :  C  =  .3»B  :  D  =  .49*9 

I"  GTYPE  a  2  THEN  RETURN 
N  a  INTIB) 

IF  N  i  :  TEN  N  a  1 
REURN 

'  DEFINE  'ARGET  RANGE 


:AS 


Edi'rsnt  ’’arcet  ^eiaht  ''iBi"  n 
Efitei*  icr)  To  Keen  Value 

Or  Enter  New  Tarnet  Heicnt  (T10  3> 


Enter  — )  ":ftt 


REFRESH  SIl'EtN 
SAVE  OLD  CURRENT  RANGE 

'*##. liV 


GOSUB  11650 
BH  =  R 

At  a  "\ 

PRINT 

PRI^^  "  ! 

PRINT  USING  At:"  ' 

PRINT  "  I 

PRINT  "  I 

3RINT  "  I 

PRINT 

PRINT  ■  I 

PRINT  "  " 

!I«>UT 

IF  At  a  '•  THEN  SOTO  1510 
R  =  VAL(At) 

IF  TGTNO  (=  2  AND  (R  (  1  DR  R  )  406)  THEN  R  a  BR  :  GOTO  1430 
IF  TGTNO  >  2  AND  (R  <  1  OR  R  )  4000)  THEN  R  =  SR  :  GOTO  1430 
RS  a  R  t  SI6NA/1O00 
RETURN 


Current  Tar pet  Ranpe  “:R:"  « 
Enter  (cr)  'c  Keep  Cut'rent  Value 
Or  Enter  New  'aruet  Ranee 


Enter  — )  ';Rt 


I" 


75 


153£ 

1537 

’  DEFINE  TARGET  SPEED 

152S 

I 

1540 

G0SU6  11658 

’  refresh  screen 

1541 

H  »  “\ 

■M. 

1542 

PRINT 

1543 

PRINT  "  i 

II 

1550 

PRINT  USING  M;*  1 

Curi^nt  TarDBt  Sssea  ii/s 

1550 

PRINT  "  1 

1 ' 

IS&l 

PRINT  "  1 

Enter  Icr)  'o  leen  Current  Value 

1562 

PRINT  "  1 

I" 

1570 

PRINT  '■  1 

Or  Enter  New  "araet  saseo  '>  or 

15B0 

PRINT  "  1_ 

■  it 

1581 

PRINT  "  “ 

1590 

INPUT 

Enter  — >  ":At 

1600 

IF  =  •*  THEN  GOTO  1650 

1610 

VR  =  VftL(R»l 

1650 

RETURN 

1660 

1 

1670 

*  RIM  ERROR  ANALYSIS 

1680 

f 

1690 

TREID  =  0 

*  INITIALIZE  MANNER  OF  COMPUTING  AIM  ERROR 

1691 

CLDSI6N  *  SIGHA  :  OLDPROB  =  PROB 

1692 

PN  =  1 

1693 

GOSUB  15770 

1  PETERMINP  MIW€R  in  PHICH  AIM  ERROR  !S  TO  ?£  OMJTEO 

1694 

FLA63  =  0 

1''80 

IF  TAEID  )  1  T>Oi  GOTO  1803 

1701 

S05UB  11650 

’  REFRESH  SCREEN 

1702 

fl$  S  “\ 

1710 

PRINT 

M 

1720 

PRINT 

;  !“ 

1750 

PRINT  liSiNG  A»! ' 

1  Current  Am  Error  "tSIGMP!"  nils 

1740 

PRINT 

1  I* 

1750 

PRINT 

1  Enter  <cr)  To  Keen  Current  Value  I" 

1760 

PRINT 

1  1- 

1770 

PRINT 

1  Or  Enter  New  Am  Error  1 " 

1780 

PRINT 

1  i" 

1790 

PRINT  “  " 

1800 

INPUT 

Enter  --)  ";At 

1601 

IF  A$  =  •  •1£N  FLflG3  =  0  :  GOTO  1820 

1802 

SIGNfl  =  VT  (R$) 

1803 

IF  SIGNA  °  0  T1£N  5ISW1  »  .00001 

1804 

TJ1S3  =  1 

1805 

S6UE5S2  =  SIGNA 

1820 

RS  >  R  «  SIGMA  /  1000 

1830 

GOSUB  3730 

’  ESTABLISH  HIT  PROBABILITY 

1631 

rCUSIGM  >  51GW)  ;  NEUPROB  »  PROS 

1632 

GOSIB  9690 

1840 

RETURN 

1900 

1 

1910 

'  DEFINE  HIT  PROBABILITY 

1920 

f 

1930 

BOSliB  11650 

’  REFRESH  SCREEN 

1931 

At  =  “\ 

\“ 

1932 

6t  =  n 

\m.m  \‘ 
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1333 

PRINT  '  _ 

•  1 

1334 

PRINT  ‘  1 

1" 

I94e 

PRINT  ItSINB  Pt;'  1 

Current  Hit  Probability  VPROB!"  l" 

1950 

PRINT  "  1 

r 

1360 

PRINT  USING  B»:'  ! 

Current  Aia  Error  '';SIBitA:"  ails 

1980 

PRINT  •  1 

!" 

1990 

PRINT  •  1 

Enter  (cr)  To  Keeo  Current  Values  ; " 

1991 

PRINT  "  1 

1" 

1992 

PRINT  "  1 

Dr  Enter  New  hit  Probability  i0*l)  1“ 

2000 

PRINT  "  1 _ 

t  n 

£001 

PRINT  "  " 

£010 

IWHJT 

Enter  —)  'sfli 

2020 

IF  fl»  =  •*  THEN  FU©4  =  0  :  USERPHIT 

=  0  :  PHIT  =  PROB  :  GOTO  2040 

2030 

PHIT  =  VflL«H) 

£031 

USERPHIT  =  PHIT 

2032 

nj»G4  =  1 

£040 

IF  PHIT  (*  i  the:!  PHIT  =  .MWl 

'  DEFINE  LOWER  LIMIT  OF  HIT  PROBABILITY 

3050 

IF  PHIT  >=  1  T1£N  PHIT  =  K 00001 

'  DEFINE  IPPER  lINIT  OF  HIT  PROBABILITY 

SCSI 

QLDPROB  =  PRGB  :  OLDSIGN  «  SI6NP 

C060 

GOSIS  3380 

•  ESTABLISH  THE  INVERSE  HIT  PROBABILITY 

2061 

IF  FLP65  -  1  TltN  FLflG5  =  0  :  GOTO  1930 

2062 

IF  FL«5  =  2  THEN  FLAGS  =  0  :  GOTO  580 

2070 

NEUSI6N  »  SIGNP 

2060 

GOSUB  3730 

’  ESTABLISH  HIT  PROBABILITY 

cral 

i>cw0'nuo  -  Khuo 

2062 

GOSUB  9490 

2090 

30TC  580 

2160 

1 

•170 

’  :£":n£  X  AIN  POINT  ADJUSTMENT 

3180 

2190 

60SUB  11650 

'  REFRESH  SCREEN 

3191 

fi*  =  "S 

xee.eex 

3300 

PRINT 

■’ 

3301 

PRINT  "  1 

’ 

2302 

PRINT  USING  Ai;*' 

Curi'cnt  x-Ain  Adiustnent  ";CJX:"  n 

2203 

PRINT  "  i 

1 

3304 

PRINT 

Enter  <cr)  To  Keen  Current  Value  ‘ 

2205 

PRINT 

1 

2213 

PRINT  "  ; 

Gr  Enter  New  X-Aib  Adiustoent  l-r  or  -)  1 

2214 

PRINT  “  : 

1 

2215 

PRINT  '■  • 

221  & 

INPUT 

Enter  — )  ^At 

2250 

IF  Irt  =  ■"  THEN  GOTO  2265 

2260 

CJX  =  UAL  (Ail 

2265 

IF  GTYPE  =  2  THEN  GOTO  3570 

2266 

f 

£267 

’  DEFINE  4  AIM  POINT  POJUSTMENT 

2266 

2270 

GOSUB  11650 

’  REFRESH  SCREEN 

2271 

fl$  =  "X 

XH.etX 

3272 

PRINT 

• 

£273 

PRINT  " 

1 

3260 

PRINT  USING  A<;" 

Current  V-Ais  Adjust eent  °;CJY;"  a 

2290 

PRINT 

2291 

PRINT 

Enter  (cr)  To  Keen  Current  Value 
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i292 

2Zli 

E3il 

E:i0 

e:20 

ww  •  3 

•230 

22S0 

24  la 
cm30 
2470 
2480 
2490 


27S0 

2760 

2770 

2801 

2810 

2830 

2840 

2850 

2860 

2870 

2871 

2872 
2880 


PRINT 

PRINT 

PRINT  " 

PRINT  "  " 

INPUT 

IF  Hi  =  ■■  THEN  GOTO  2370 
CJY  =  VflL(W) 

RETURN 

’  EXIT  NODEL 

SYSTEM 

END 

t 

<  PARRMETER  RNPLYSIS  MENU 

I 


Dr  Enter  Mew  V-flii  Adjustnent  (♦  or  -) 


Enter  ->  ’jA* 


2S00 

CIS 

2510 

PRINT  “ 

PARAMETER  ANALYSIS" 

2520 

u 

2530 

A$  »  “\ 

\»\ 

2540 

Bt  *  ‘N 

\l#*.  H\  \“ 

2550 

C*  =  "\ 

2560 

D$  =  "N 

\m.iK:\ 

\" 

2570 

Ei  =  “\ 

\M».N\ 

\«4HH».«4\  \' 

25B0 

PS  - 

\*6S.  Wt\ 

2585 

S»  =  "\ 

\tm.m 

\" 

2590 

PRINT  USING  A*!"  Projectile  Tyne 

■jRD«;“ 

Target  Type";TTYP£| 

2600 

PRINT  USING  Ml"  Initial  Pitch  Angle 

*jGAMMft*l000;"  mils" 

3610 

PRINT  USING  C*!"  ‘flight  Tme 

"iTOF;"  s 

Target" 

£620 

PRINT  USING  D*!"  laoact  Velocity 

"iva;*  B/S 

Dimensions  Heigth  "iBs*  m" 

2630 

PRINT  oSlNG  Ot;'  X  -  iwoart  Point 

"iCIXs"  «i 

Width  ‘lAs"  m" 

2640 

PRINT  USING  E<;“  Y  -  inoact  Point 

"SCIY;"  m 

Ared’:(At(p-C)  +  iC»i/))r 

2650 

PRINT  "  " 

2660 

PRINT  ■  Battlefield  Conditions" 

2670 

2680 

PRINT  USING  Ft;"  Gattlesignt 

•jRBi"  m 

X  -  Aim  Adjustment  "iCJX;"  m" 

2690 

PRINT  USING  FSj"  Crossorift 

■;VH;''  m/5 

Y  -  All  Adjustient  ";CJY:"  sv 

2780 

PRINT  USING  3* i"  Target  Range 

•:R;*  m 

Aim  Error  "jSIGWl:"  mils" 

2710 

PRINT  USING  F(:"  Target  Speed 

";VR:"  m/s 

Hit  Pronanility  ';PR0B 

2720 

PRINT  "  " 

2730 

PRINT  ■'  Select  Functmnls)" 

2740 

PRINT  " - 

— 

ri 

PRINT  "  1  -  Projectile  Tyoe/Battleeigfit 


PRINT 

PRINT 

PRINT 

INPUT 

RETURN 

t 


2  -  Crossdrift  Soeeo 

3  -  Taroet  Characteristics 


4  -  'arget  Range/ Sneed 

5  -  Am  Error 

6  -  Hit  Pronaoility 


7  -  Adjust  X/Y  AiB“ 

8  -  Graoh  Results" 

9  -  Ouif 


Enter  — >  ";CH0ICE 


SET  TRAJECTORY  CHARACTERISTICS  OF  ROUND  TYPE 

IF  PJ  =  1  T»€N  GOSUB  2930 
IF  PJ  2  THEN  GOSIS  3070 
IF  PJ  »  3  THEN  60SUB  3111 
GOSUB  3210 


•/8 


;ew 

£910 

£:£«) 

£953 

£3S3 

£943 

2970 

2960 

£990 

3£00 

£810 

3020 

3030 

3040 

3050 

30B0 

3070 

3090 

3100 

3101 

3102 

3103 

3104 
oieo 
310B 

3107 

3108 

3109 

3110 

3111 

3113 

3114 

3115 

3118 
3117 

3116 

3119 

3120 

3121 
3100 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
32B0 
3290 
3300 
3310 
3320 


rE'liSN 

1 

'  DEFINE  "133  -]L:ND  ZHARhCTESISTIC  DftTfl 
1 

;;  1)  =  ,000005  ;6*.323?5i 

Cr£'  =  !.5H99ia99D"09 

Clv3.  =  -•.56942f67D-l2 

:i:4)  =  .543114940-14 

fll.-iF  »  Hi?.-*  "tfli  ^RNGE 
VQ=  999.01  'L'POflTHD  6/9/07 

'C'^:  =  li0<*.£6  'LPOaTED  6/9/07 

VELl  =  1050.1  "JPORfED  6/9./a7 

VEL2  =  1037.6  ’IPDATED  6/9/07 

RETJRN 

I 

'  DEFINE  «855  ROUND  CHflRflCTERIS’lC  OflTfl 

I 

CKl)  s  .00000536026011* 

Cl  (2)  =  4.065759550-09 

Cl  (3)  =  1.072001270-13 

Cl  (4)  a  5.736491760-15 

RINF  a  1464.87  'MAX  RANGE 

VO  a  924.57  ’UPDATED  6/9/07 

TOFI  a  1767.26  'UPDATED  6/9/Q7 

vtLi  =  1219.62  ’updated  6/3/S7 

VEL2  a  £641.74  'UPDATED  6/9/07 

RETURN 

> 

’  DFINE  RT-4  ROU.VD  characteristic  DATA 

I 

CKl)  a  5.0a743SE-5 

CK2)  =  3.£60ae0E-a 

Cl '3)  a  1.0640956-11 

Cl  (4)  =  8.072229E-14 

=  18B1.74  "(Al  RANGE 

VO  a  290.6  'RETERS  PER  SECOND 

TOFI  a  £395.6  'UPDATED  6/9/07 

VELl  a  59*6.  ■*  'UPDATED  6/9/07 

VEL2  a  1296.9  'UPDATED  6/9/07 

REPJRN 

f 

’  COMPUTE  TRAJECTORY  DATA 

1 

GAMMA  a  RB  ♦  (CKl)  ♦  RB  »  iCK2)  ♦  RB  ♦  (C1I3)  ♦  RB  i  Cl(4))l) 

YTRAJ  a  GAMMA  ♦  R  *  (1  -  R  /  RB)  /  (1  -  R  /  RINF) 

TOF  a  R  /  (VO  *  (1  -  R  /  TOFU)  'UPDATED  6/9/07 

XTRAJ  a  VW*(R/12l5.36)^2/(l-)R/1045.41)4(R/1770.05)-2) 
va  a  VO  ♦  ;i  -  R  /  VELl)  /  (1  +  R  /  VEL2)  'UPDATED  6/9/87 

XO  a  VR  4  TOF 
YO  a  0 
RETURN 

t 

’  SET  X  8  V  1(4N4CT  POINT 


7y 


CIX  a  CJX  ♦  (XTRAJ  -  XO)  »  N 


33o8 

3340 

3350 

3360 

3370 

3380 

3350 

3480 

3418 

3411 

3420 

3421 

3422 

3423 

3424 

3425 

3433 

3434 

3435 
343£ 
3437 
3440 
3450 
3460 
3580 
3501 
3510 
3520 
2521 
3530 
3540 
3550 
3560 
3570 
3550 
3530 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3630 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
5770 
37B0 


CIV  *  CJV  *  (y*ROJ  -  'Cl  • 

RETURN 

I 

'  DEVELOPMENT  IMVER5E  PROBABILITY  OATP 


FLPG3  “  0 
RSTE)4P  «  RS 

RS  »  RflDCIR  /  3QRi*£  *  i.C3i: 
3GUESS  =  RS  »  R 

NEUSIGM  SSLESS 
GOSUB  11650 
R$  « 

PRINT 

PRINT 

PRINT  USING  flt;“ 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT  *  " 

INPUT 

IF  (1$  =  ••  THEN  GOTO  3520 

seuEssa « vAitAti 

RS  :  SGUESS2  t  R  /  1000 

FLflG3  =  1 

GOTO  2S30 

S6UESS2  *  0 

RS  :  SGUESS  •  R  /  1000 


•  •hi  « . 


’  refresh  screen 


\" 


First  fliB  Error  Estiiate  'iSGUESSi''  ills  1" 

1“ 

Erter  (cr>  To  Keeo  First  EstiastB  i" 

!■ 

Or  Enter  User  Estiiate  (in  ills)  I" 


Enter  — >  ",at 


COUNT  =  0 
FLPGl  =  0 
aflSE  =  0 

WHILE  FLPGl  =  0  AND  FlRG2  =  0 
G05UB  3730 


ESTABLISH  HIT  PROBfiBiLlTY 


TERNl  =  (XI  »  tl  -  X2  »  E2)  ♦  (HI  -  H2)  *  tVl  •  Gl  -  V2  ♦  G2)  *  (FI  -  F2) 
TEFM2  s  (X3  ♦  E3  -  X4  f  E4)  *  (H3  -  H4)  +  (Y3  t  B3  -  Y4  ♦  64)  •  iF3  -  F4) 


PROBDERIV  =  -(TERNl  +  TER«)  /  RS 
IF  PROBDERIV  >  0  THEN  GOTO  10150 
CORR  =  (PROB  -  PHIT)  /  PROBDERIV 
RS  =  RS  -  CORR 


COUNT  =  COUNT  +  * 

IF  ABS(CflRfi)  (  TO.  ♦  flBS(RS)  THEN  "LAG!  =  I 
IF  COUNT  )  MBXCNT  THEN  FLfiGE  =  1 


UENO 

IF  FLPG2  »  1  OR  RS  (  0  THEN  GOTO  10020  ELSE  5IGNA  =  RS  »  1000  /  R 
RETURN 


’  DEFINE  HIT  PROBABILITY  BASED  ON  TARBET  SIZE 


XI  »  (A/2  -  CIX)  /  RS 
X2  =  (-A/2  -  CIX)  /  RS 
X3  =  (D/2  -  CIX)  /  RS 
X4  -  (-0/2  -  CIX)  /  RS 
Y1  =  (B/2  -  C  -  CIY)  /  RS 
Yc  =  i-B/2  -  CIY)  /  RS 


80 


3790 

Y3  •  (0/2  -  CIY)  /  RS 

3810 

Y*  *  Y1 

3610 

X  *  XI 

3630 

60SUB  *140 

3830 

El  >  Z 

36«0 

FI  •  P 

3850 

X  «  X2 

38E0 

60S11B  4140 

3870 

E2  *  Z 

3860 

F8  »  P 

3890 

X  -  X3 

3900 

GOSUB  4140 

3910 

E3  -  2 

3930 

F3  *  P 

3930 

X  -  X4 

3340 

eOSUD  4140 

3950 

E4  >  1 

3960 

F*  ■  P 

3970 

X  a  Y1 

3980 

GOSUB  4140 

3990 

B1  =  Z 

4080 

HI  *  P 

4010 

X  «  Y2 

4020 

GOSUB  4140 

4038 

Sc  •  Z 

4040 

H2  a  P 

4050 

X  a  V3 

4060 

GOSUB  41*0 

4070 

G3  a  Z 

4060 

H3  a  P 

4090 

64  a  61 

41» 

M*  a  Hi 

4110 

PRQB  =  vFl-F2)t(Hl-M21  +  (F5--*l*IH3-ti*) 

4120 

RETURN 

4130 

1 

4131 

'  GAUSS 

4132 

* 

41*0 

XR  a  ABS(l) 

4150 

IF  XA  1  10  them  XA  a  10 

*160 

R1  a  .  *361636 

*170 

fl2  a  -  1201676 

41B0 

R3  a  .  937298 

*190 

T  a  1  /  (1  +  .33267  *  JA) 

4200 

Z  a  .3989*23  *  EXP(-.5  *  XA  ♦  XA) 

4210 

P  a  1  -  Z  *  (T  #  (fll  +  T  ♦  (A2  +  T  ♦  A3 

*220 

IF  X  (  0  THEN  P  a  1  -  P 

4230 

RETURN 

42*0 

1 

*250 

'  PROCESS  THE  GRAPHIC  ANALYSIS  POKL 

4268 

1 

*270 

GO^  11650 

4288 

COLOR  IS 

4290 

1 

4380 

'  DISPLAY  GRAPHIC  ANALYSIS  MENU 

4310 

t 

’  REFRESH  SCREEN 


b  1 


4317 

4318 

4319 

4320 

4321 

4322 

4323 

4324 

4325 

4424 

4425 

4426 

4427 

4428 

4429 

4430 

4432 

4433 

4434 

4435 

4436 

4437 

4438 

4439 

4441 

4442 
4445 


5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 

5338 

5340 

5350 

5360 

5370 

5380 

■UM 

5410 

5420 

5520 

5530 

5540 

5550 

5560 


IF  PLDTPT  =  0  THEN  ECURVE$  =  “Not  Defineo" 
W  =  “N 

B$  =  *\ 

M  =  "\ 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT  USING  C$;' 

PRINT 

PRINT  USING  W;' 

PRINT  USING  M;' 

PRINT  USING  Pt;' 

PRINT 
PRINT 

PRINT  _ 

PRINT  “  • 

IfPUT 

IF  FC  (  1  OR  FC  )  8  GOTO  4270 
IF  FC  =  1  TICN  GOSUB  17930 
IF  FC  =  2  T}€N  GOSUB  18288 
IF  FC  =  3  T>€N  GOSUB  18560 
IF  FC  =  4  TV€N  GOSUB  15175 
IF  FC  =  5  T>CN  GOSUB  15160 
IF  FC  =  6  T1€N  GOSUB  18231 
IF  FC  =  7  THEN  GOTO  71 
GOTO  4270 

t 

’  tIflX/MIN  RANGE  OF  TARGET 
1 


\»\ 


\4\ 


\i\ 


Select  Function 
Define  Data 

Theoretical  . 1 

Effloincal  . “;£CUfiVE$:“ .  2 

Plot  Curve (s) 

Select  Theoretical  Curve (bI  .. "iTCURVEt;"..  3  i“ 

Include/Exclude  Theoretical . ‘;STSTC$:“ .  4 

Include/Exclude  Efloirical  ....... *;STSECt;’..,..  5 

Disolay .  6 

Quit . . . 7 


r 

1“ 


r 


Enter  — )  “iFC 

DISPLAY  THEORETICAL  FUCTION  CODE  MENU 
DISPLAY  EMPIRICAL  FUNCTION  CODE  MENU 
DEFIIC  CURl^  TO  BE  PLOTTED 
INaUDE/EXCLUDE  INITIATION  SWITCH 
INCLUDE/EXCLUDE  INITIATION  SWITCH 
DISPLAY  6RI¥MiICS 
RETURN  TO  MAIN  MENU 


XPT(l) 

XPT(2) 

XPT(2) 

XPT(4) 

XPT(5) 

XPTIG) 

XPT(7) 

XPT(B) 

XPT(9) 

GOSUB  5690 
GOSUB  5619 
GOSlfi  5838 
GOSUB  5751 
GOSUB  5890 
COLOR  IS 
KEY  OFF 
US 

CALL  XYLABEL 
GOSUB  10690 
GOStB  6299 
GOSUB  9240 
GOSUB  9319 
A<  »  IlKEYt 


<<A/2)/N)»64;  YPT(l)  =  ( (8/2-3) /N)  *60 
((D/2)/N)«64:  YPT(2)  =  < (8/2-3) /N) *60 
((D/2)/N)*64:  YPT(3)  =  ((B/2)/N)*e0 
((-D/2)/N)*64;  YPT(4)  =  ((B/2)/N)*60 
((-D/2)/Nl*64;  YPT(5)  =  ( (B/2-C) /N)  *60 
((-A/2)/N)*64;  YPT(6)  =  ((B/2-C)/N)*60 
((-A/2)/N)*64;  YPT(7)  =  ( (-B/2)/N)*60 
((A/2)/N)*64;  YPT(8)  =  ((-B/c)/N)»&0 
((A/2)/N)*64:  YPT(9)  =  ( (B/2-C1 /N)  *60 


(N) 


IF  M 


SET  SCALE  VALLE 

SCALE  MAX  AND  IIN  VALUES 

SET  TRANSLATICN  VALUE  OF  TARSET 

TRANSLATE  MAX  AND  MIN  VALUES 

ADJUST  MAX  AND  MIN  VALUES  '0  SCREEN  COORDINATES 

SET  FOREBROU)®  CaOR  TO  WHITE 


DISPLAY  X  I  y  CARTESIAN  GRAPH  LABELS 

DRAW  2  DIMENSION  GRAPH 

DRW  TARGET  WITHIN  GRAPH 

SET  RADIUS  OF  40,86,99  %  CIRCLES 

DRW  CIRtLES  AND  DISPLAY  SUPPORT  DOCUMENTATION 

GOTO  5560 
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5570 

5530 

5590 

5d00 

55:0 

5620 

5530 

5640 

5650 

5550 

5570 

5530 

5690 

5700 

5710 

5720 

5730 

5740 

5750 

5760 

5770 

5780 

5790 

5800 

310 

5820 

5830 

5540 

5850 

5850 

5870 

saee 

5890 

5900 

5910 

5920 

5930 

6250 

6270 

5280 

6290 

5380 

5310 

5320 

6330 

3218 

3220 

3238 

3240 

3258 

3260 

3278 

3288 

3230 

3308 


RETURN 

f 

’  SCfiLE  POINTS  OF  TRRGET 

f 

FOR  PTNO  =  1  TO  9 

NXPTS(PTNO)  =  XPTCPTNO)  ♦  XSCflLE 
NYPTS(PTNO)  =  YPT(PTNO)  ♦  YSCflLE 
NEXT  PTNO 
RETURN 

’  SC  SCRLIN6  VALUE 
> 

XSCALE  =  1 
YSCflLE  =  XSCflLE 
RETURN 

I 

’  TRANSLATION  OF  TRRGET 

FOR  PTNO  =  1  TO  9 

MXPTS(PTNO)  =  NXPTSIPTNOI  ♦  XTRANS 
NYPTS(PTNO)  =  NYPTSIPTNO)  +  YTRflNS 
NEXT  PTNO 
RETURN 
» 

’  SET  TRANSLATION  VALUE 


XTRflNS  =  6 
YTRflNS  =  0 
RETURN 
1 

’  ADJUST  FOR  DOT  WIDTH  A®  CCN'VERT  TO  SCREEN  COORDINATE  SYSTE.M 
FOR  PTNO  =  1  TO  9 

NXPTS  (PTNO)  =NflX  XRES/2>NXPTS  (PTNO)  ♦  (^IflXXRES/HAXYRES/ASPEDTRA'riO) 
NYPTS(PTNO)  =J1flXYRES/2-NYPTS(PTffl) 

NEXT  PTNO 

RETURN 

1 

»  DRAM  REQUIRED  TARGC  ONTO  SCHEN 
1 

DRAW  ■BM=‘'+‘JARPTR$(NXPTS(l)I+',=*+VflRPTR$(NYP'TS(I)  > 

FOR  I  =  2  TO  3 

DRAM  ■M=“fVARPTR»(NXPTS(I)l  +•,  =*+VA»>T3$(NYP'TS(I) ) 

NEXT  I 
RETURN 

I 

«  SCALE  CIRCLE  RADIUS  VALES 
» 

RADI  =  R  *  .  132  '  UPDATE  CIREE  RADIUS  VALE  7/27/87 

RflD2  =  R  ♦  .  136  ’  UPDAE  CIRCLE  RADIE  VALE  7/27/87 

RAD3  =  R  *  .  14  ’  EDATE  CIREE  RADIUS  VALE  7/27/87 

RETURN 

I 

’  DRAW  *9,B6,99t  CIRCES,  AIN  POINT,  WD  SUPPORT  DOCUMENTATION  ONTO  SCREEN 
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g3ie  CKX  =  "Ia/N 

53n  'y'i=:v(iu 

3312  XPlT  =  t3:-«  ^  '.3  »  «'iev«W5  -  D)  +  (CftX  »  150;' 

3313  =  lw0  -  lK-t  *  6=- 

331A  ''!)M="+W^pyfi4;A'PLl)+*,="+VflRPTRf(YPL.l  ’  SET  CURSOR  TO  STPm  POIVT 

3315  DRCH  '%  3  10  3  NL  5  NR  5* 

33i5  D1«W -8h  610,1.8:“ 

9317  nRflll  'U  6  R  P  H  2  G  8  R  2" 

9318  DRAW  "SM  5W  180’ 

3319  'L  12  U  2  3  2  F  2  U  2" 

9322  COLOR  2 

9530  CIRCLE  (320- (3*(XTRRNS-1)+(CKX»150)),  10^CXY«60>,^*SIG«ft/N*R»l  ’  UPDhTED  7/27/87 

9331  COLOR  4 

93«i  CIRCLE  (320f(3*iXTRflMS-l)+-(D<X*lS0)N,100-CKY*60),2*6IGHft.^hW.®2  ’  lM)«rEl)  7/27/37 

9341  COLOR  14 

9330  CIRCLE  (32»v(3#(XTR«<S-ll+(CKl*150)),I00-CKY»80>,3»Si6Rft/M»fiftD3  •  IPDRTED  7/27,V 

9333  COLOR  15 

3365  L»  =  "\ 

9381  LOCATE  23,70 

1382  P  T  ■Meters" 

9390  LuiJlTE  4, 12 

9403  PRlMf  USING  Prob  =*;W:CB;’  Ain  Error  =*;SIGHAj"  nils  Target  Range  -  ";C;" 

9410  LOCATE  6,22 

9420  PRilT  "481,  And  99  Percent  Round  Iioact  Circle-." 

9439  LOCAiE  23,25 

9V,0  PRINT  "Hit  ftty  Key  To  Return  To  Main  Menu” 

9450  RETURN 


9/'70 

'  DISPLAY  ESTIMA"'ION  SI*1NARY  FOR  HIT  PRP6kBILITY 

94^ 

9490 

1 

G0SU6  11650 

’  REFRFSH 

9491 

A$  == 

"\ 

9492 

B»  = 

It* 

9493 

Dt  - 

"\ 

95  3 

PRWi 

• 

9310 

rwINT 

0 

9520 

"’INT 

• 

95  jn 

PRINT 

9531 

niNT 

It 

9S3i; 

PRINT 

N 

95*0 

PRINT 

PRINT 

R 

95W 

PRINT 

n 

9565 

PRINT 

u 

9570 

PRIlfT  USIN6  at.' 

« 

9571 

ir  FLfC3  =  0  WJ  FLP94  = 

0  TTf  30TO  9iS3 

9i00 

IF  FJS,!  =  1  AND  FIAS4  = 

1  TT5j«  print  using  P*;* 

9581 

IF  FLftG3  =  1  ARO  FLP84  ^ 

0  THEk;  PRINi  'SING  D«;’ 

9582 

IF  FLAG3  =  0  AND  r-lAS4  = 

1  Tits  PRINI  USING  c*;" 

9590 

PRINT  L1SIN6  D$: 

H 

3600 

PIJNT  IJEIie  at; 

U 

%<0 

PRINT 

H 

9620 

PRINT  " 

PRIST 

H 

•-’640 

PS  =  IialE''*  ;  IF  a:  r 

:H:N  But  96s0 

SCREEN 

\ft.M  \“ 

'S.W\ 

\  •#«.«'  I* 


ESTIilATIOM  'TJMHARV 


Error  Tolerance  =  .01S01 


Ebtirete 

Hit  Probability  Ais  Erroi  !" 

'niti.il 

1" 

■;OLDPROB;OLnsiGM;"  1“ 

User 

■;Ua'?>HIi-‘i3lJESS2;*  I* 

User 

-••S6lESs2r'  I’ 

User 

";USERPHIT;*  - 

Prograa 

-";SaJESS!‘  1' 

.'-..•'al 

■,NEUPR0B;NBIS1QI;‘  I" 

Hit  Any  K,>v  To  Contin'ie- 


6*4 


SETLiRN 


96M 

■\60 

?fe7e 

’im 

%0i3 

yji 

S<i33 

'jTW 

3V!b 

3720 

‘r’i0 

3-' 21 

3r30 

975C 

'T/K? 

3770 

-771 

37B: 

3790 


99111 

'iK0 

:930 

■7^ 

9553 

TSS1 

17710 

U'}40 

10*50 

10060 

10061 

106 

10P70 

10871 

18fi72 

10181 

10090 

101W 

10120 

i0t:>; 

11:  M 

10150 

10170 

18180 

10190 

10191 
li.l92 
1«M 
11210 
18228 
10238 


'  DISPLAY  ESTil^TIQN  SliMIfiRY  FOR  ;3IM  ERSCS 


G0SU3  11658 

M  = 

C«  = 

rRIXT 

h'RIilT 

PRIMT 

PFiKT 

PRIWT 

QfilKi 

PR^^fT 

PRINl 

PRiflT  USIME  R5; 

IF  fLAGS  =  0  fKJ'  dOiO  9730 
I?  r.P62  =  1  .*<31  PR'MT  US/HS  3$;“ 

>.llNT  USING  C0; 
t-2IWT  jSIl«  fV; 

.'filNT 
PP’NT  "  " 

Pkllfi 

ft*  =  IhNEYt  :  >■  ?«  -  "  THEN  fi’^T]  9840 
lOiM; 


*  REFREa  SCREEN 

\00t.M  «.H\ 

\  t.0t\ 


ESTI.>«TI0N  SIMNARY 


Estirits  flis  Error  Hit  Probibility 


Initijl 

User 
(Vo  Jr'S 
Firal 


’;2J)SIGN;QLDPR0B;'' 

';!£tE&S;* 

— ^NEHPROBs' 
‘;M31SIGN;NEUPR0B:' 


Hit  Pny  IL'‘y  To  Cortinue* 


’  HIT  PHTSfitiLTY  TOO  LhRGc' 


PRINT  CH'^(7i 
PROB  -  QLDPHOB 

SICNfl  =  OLDSICJ)  !  iw  -  RSc’LA. 

GOSUB  l;«;j0  '  KcFRESH  J^REFN 


Ps'lNT  "  _ " 

OPINT  ■  I  ’  r 

PRlfJT  ■  Incut  Pi'ooahility  Too  Large,  Choose  Seailer  Vjlu*;' 

PRINT  "  ; _ i- 

PRIiri  “  " 

INPUT  "  Enter  To  Choose  Saaller  Value  El-ie  “'ter  M  — )",A» 

IF  P5  =  "V  OR  fli  =  "v*  T1€N  FLfl65  -  1  ,  SCnT  '02B0 

IF  A*  -  “T  OR  fit  •  “n"  MEN  FIJ^5  =  2  ;  SITO  >0208  .ISE  ODC  '&» 


’  DERIWTlVf  T  PHaWtiLilT  IZ  ZERO 

1 

PRIlfT  CHR»; ') 

Slow  -  iLPStSM  :  RS  -  RS  IMP 
PROB  =  OLE^*-® 

GOSUB  11658  ’  tlEFRESH  SCREEN 

PRINT  ■  _ _ • 

PRINT  ’I  I* 

PRINT  "  I  Rerwi’ive  Of  (Votability  Function  Went  To  Zero  l‘ 

PRINT  • 

PRIffT  ‘ 

PRINT  • 


Pin  Eiror  Estimation  Process  ’DIED' 


10248 

IWJIJT  • 

Enter  ’Y'  To  T>'v  Roam  Else  Enter  "N‘  ‘:n$ 

1K58 

IF  ft$  =  "Y"  OR  M  =  »y“ 

THEN  aftSS  =  1  ;  'SOTO  102S8 

10268 

IF  fl»  =  "N*  OR  R$  *  *n" 

THEN  FLAGS  =  2  ELSE  SOTO  10190 

18280 

RETURN 

18388 

1 

18310 

'  DISPLAY  HIT  PROBABILITY  BY  RANGE  TABLE  FOR  E  i  F  SILOUE’TE  "aRETS 

10328 

I 

18330 

609JB  11BS0 

'  RFRESH  SCREEN 

18348 

PRINT 

HIT  PRQBAPILITY  BY  RANGE  ONJ)  AIM  ERROR" 

18350 

PRINT  "  " 

18360 

Ai  =  "\ 

10378 

B$  =  ’V 

\  ' 

183B0 

C*  =  'X 

\««.44  4«.#i 

10398 

Dt  =  "\ 

\M.»«  4«.4i 

18480 

PRINT  USING  B$;" 

Theoretical  Curves  1  2  3  " 

10418 

PRINT  USING  Dis* 

Ail  Error  (ails)  ‘5St6)4Altl):S:6MAli2):5IGMAl(3) 

18428 

PRINT  "  • 

18430 

PRINT  USING  B0;’ 

Hit  Prouability* 

18448 

PRINT  USING  B*:" 

Range  (neters)  t  %  t  “ 

18450 

PRINT  USING  C$5 “ 

50  "5DAT(1,25)5DAT(2,25);DAT(3,25) 

10468 

PRINT  USING  C$;" 

188  *;DATtl,5d):DAT(2,5e);DAT(3.50) 

18470 

PRINT  USING  C$5‘ 

150  “:DAT(i,75);DAT(2,75)5DATt3,75) 

10468 

PRINT  USING  C$:" 

208  ";CAT(l,l8e):DAT(2,188);DAT(3,108) 

10490 

PRINT  USING  C$;' 

250  •5DAT(1.125)5DAT(2,125);DAT(3,125) 

10S80 

PRINT  USING  C$;'' 

300  *  :DAT(1, 158)  ;DRT(2. 159)  5l}AT(3, 150) 

10618 

PRINT  USING  «,■' 

358  •;DATll,175);Da7(2.175);DAT(3,175) 

10528 

PRINT  USING  C$:" 

480  •:DAT(1.208>:DAT(2.288);DAT(3,208) 

10530 

PRINT  "  • 

18548 

PRINT 

Seiecx  ’■■leoreticai  Curye(s)  To  Disoiay" 

1'3S58 

PRINT  "  " 

10568 

PRINT 

1  -  Curve  1  4  -  Curves  1  i  £  7  -  Curves  1,  2.  4  5’ 

10578 

PRINT 

2  -  Curve  2  5  -  Curves  1  S  3  3  -  Cult" 

10668 

PRINT 

3  -  Curve  3  6  -  Curves  2  i  3" 

10598 

PRINT  "  '■ 

10595 

INPUT 

Enter  — >  ":A$ 

18596 

IF  a$  =  “■  THEN  GOTO  10338 

10597 

GM  =  VAL(A$) 

10608 

IF  6M  (  1  OR  G?!  )  0  "HEN  GOTO  18358 

10610 

RETURN 

10611 

1 

10612 

'  DISPLAY  Y  AXIS  LABELS  FDR  GRAPHIC  ANALYSIS  CARTESIAN  GRAPH 

10613 

10628 

LOCATE  6,3 

10638 

PRINT  ".B" 

10648 

LOCATE  11,3 

1065C 

PRINT  ".6“ 

10655 

LOCATE  13,3 

10656 

PRINT  'PH' 

10668 

LOCATE  15.3 

10678 

PRINT  ".4" 

18680 

LOCATE  28.3 

10698 

PRINT  ‘.2‘ 

10788 

RETURN 

10701 

1 

18782 

’  DISPLAY  X  AXIS  ABELS  '"OR  5RAPHIC  ANALYSIS  CATESIAN  GRAPH 
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10710 

10711 
10713 
1073« 
10730 

10749 

10750 
10760 
10770 
107B0 
10790 

10609 

10610 
10620 
10620 
10640 
10850 
10660 
10670 
10660 
10090 
10900 
10910 
10920 
10938 
10940 
10950 
10960 
10970 
.0960 
10990 
11000 
11018 
110C0 

11030 
If  040 
11050 
11060 
11070 
11080 
11090 
11100 
11110 
11120 
11130 
11140 
11150 
11160 
11170 
111B0 
11191 
11200 
11210 
11220 


LOCATE  25,6 
PRINT  "RGE" 

LOCATE  25, 14 
PRINT  "50" 

LOCATE  25,23 
PRINT  "100" 

LOCATE  25,32 
PRINT  "150" 

LOCATE  25,41 
PRINT  "200" 

LOCATE  25,51 
PRINT  "250" 

LOCATE  25, 66 
PRINT  "300" 

LOCATE  25, 70 
PRINT  "350“ 

RETURN 

'  DRAW  CARTESIAN  GRAPH  EQR  PARAMETER  ANALYSIS  MODULE 

1 

L  =  0 

DRAU  "BN  35, 18" 

FOR  H  »  1  TO  179  STEP  6 
L  *  L  +  1 

IF  L  =  5  TICN  DRAW  "5  6  Nfl  3"  :  L  =  0  ELSE  DRAW  "D  6  nR  5" 
NEXT  N 

FOR  N  =  I  TO  680  STEP  15 
L  *  L  . 

IF  L  =  5  TIEN  DRPa  "R  15  NU  6’  :  L  =  0  ELSE  DRA«  "R  15  NU  3" 
NEXT  N 

FOR  It  *  179  TO  I  STEP  -5 
L  =  L  *  1 

IF  L  =  5  TVEN  DRAM  "U  6  M  10"  :  i.  =  0  ELSE  DRAW  "U  5  NL  5* 
NEXT  N 

FDR  It  =  600  TO  1  STEP  -15 
L  =  L  ♦  1 

IF  L  =  5  THEN  DRAW  "L  15  ND  6"  :  _  =  0  ELSE  ORAM  15  ND  3" 
NEXT  It 
Rt"JRN 

I 

’  DRAW  CARTESIAN  6RRPH  !^CR  PARAKETER  ANALYSIS  .TODU.E 
L  =  0 

DRAW  "BR  35. 10" 

FOR  M  =  !  TO  179  STEP  6 
L  =  L  +  1 

IF  L  =  6  TIEN  DRAW  "D  6  NR  9"  :  L  =  0  ELSE  DRAW  “D  6  NR  5" 
NEXT  N 

FOR  M  =  1  TO  6»  STEP  15 
L  =  L  1 

IF  L  =  5  TIEN  DRAW  'R  15  NU  6"  :  L  =  0  aSE  DRAM  “R  15  NU  3" 
NEXT  M 

FOR  S  =  179  TO  1  STEP  -6 
L  =  .  +  1 


8V 


I  I'di 

:i2“0 

i:3») 
11311 
1:331 
1 1331 

113m1 
113S« 
ii3De 
11361 
1 1363 
1)363 
11370 
113B0 
11390 
114« 
lUia 
11430 
U«J0 
11440 
114S0 
11460 
11470 
11460 

11430 

11431 
11S00 
11510 
11330 
i;5;‘0 
11540 
11550 
11641 
11646 
11643 
11650 
11660 
11670 
11681 
11690 
11701 
11710 
11720 
11730 
11740 
11750 
11760 
11770 
11780 


IF  L  =  6  TViN  DRW  "J  6  NL  9-  :  L  =  0  ELSE  DRflW  "U  6  NL  5“ 

NEXT  N 

FCR  14  =  600  TO  1  STEP  -15 
L  =  L  +  1 

IF  L  =  5  riCN  DRAW  "L  15  ND  6*  ;  L  =  0  ELSE  DflftU  "L  15  ND  3" 

NEXT  N 
RETURN 

'  ORAy  ■RlEORErm  curves  for  graphic  WW-YSIS  module 

I 

IF  RDDTC  =  0  THEN  GOTO  11450 
FDR  1  =  PSTfl  TD  PEND  STEP  SNO 

DRRU  ■H»=‘+VftRPTH$(PLDTX  (PSTfl,  1 ) )+*,  =*+VflRPTR* (PLOTY  (PSTfl,  1 ) ) 

FOR  PK  =  I  TO  200 

IF  PK  =  £M  TrEN  GOTO  11330 

IF  I  =  1  THEN  COLOR  2 

IF  :  =  3  THEN  COLOR  4 

IF  I  =  3  "HEN  COLOR  14 

LINE  -(PLOTX(I.?K+1),PLOTY(I,PK+1)) 

NEXT  PK 

IF  I  =  3  T1€N  P7R  =  108 
IF  I  =  2  ^  PTR  =  125 
IF  I  =  1  T1€N  PTR  =  150 

GOSUB  13400  ’  COWERT  SCREEN  COORDINATE  SYSTEM  TO  TEXT  COORDINATE  SYSTEM 

GOSUB  i3490  '  OUTPUT  aPPuRTING  OOCuMENTATiGW  FOR  ThtbRETiCAL  CURvtS 

NEXT  I 
RETURN 
1 

'  DRAW  EMPIRICAL  CURVES  FOR  GRAPHIC  WAlVSIS  MODULE 

« 

IF  iTDDEC  =  0  THEN  SOTO  11550 
FDR  I  =  1  TO  PLCTPT 

DRflW  ''B«=**VflRP'TR*(PLTXX(I)l+".='>VflRPTK$(PL''YX(:))  ’  SE"  CURSOR  TO  START  POINT 
DFflU  "NU  3  ND  3  NL  5  NR  5"  ’  DRAU  CROSS  HAIR  TO  INDICATE  EMPIRICAL  POINT 

IF  I  =  PLCTPT  ^H£N  GOTO  l;540 
line  -(PLTXX(M).FlTYX(Ifl) ) 

NEXT  ! 

RETURN 

1 

'  REFRESH  SCREEN 

I 

CIS 

PRINT  “  " 

PRINT  '■  " 

PRINT  ■'  " 

PRINT  "  " 

PRINT  "  " 

PRINT  "  " 

PRINT  " 

PRINT  "  " 

PRINT  ••  " 

PRINT  "  " 

RETURN 

1 

'  DISPLAY  EMPIRICAL  DATA  TABLE 


88 


..7:i 


cr> 

'  •  1 

iisai 

GOSLS  1165? 

1*3'2£ 

y  -mG£  -  1 

hHD 

.1603 

F  PAGE  =  ; 

AND 

PLj’IlT 

;  180.4 

-ftjt  =  2 

AND 

PLOFT 

11605 

IF  PAGE  =  S 

AND 

PLDTPT 

11606 

IF  PAGE  =  2 

A®  PLOTPT 

11007 

IF  PAGE  =  I 

AND  PLOT?’ 

11808 

;•  PAGE  =  3 

AM) 

ruwi r 1 

11509 

r$  = 

1  l3l  c 

V%  ~ 

11620 

PRINT  USING  5*! 

11830 

PRINT  •  “ 

’  -!S3T  TIME  IN 
>  i^rSESH  SCREEN 
<=  :a  THEN  ENDL  =  PIOPT 
'  '.{I  "htSI  ENDL  =  10 
{=  :J  t^iEN  ENDL  =  .0 

)  li  AND  PLCTPT  (=  .;0  THEN  ENDL  =  PLDTPT 
)  £0  Then  ENOl  =  £0 
1=  £0  "nHEN  ENDL  =  c0 
)  £i  THEN  ENDL  =  PLCTPT 

“  ## 

"\  \«  \ 

"  PAGE  »"iPS6E;" 


\" 

TABLE  CF  EJPIRICAL  DATA  POINTS’ 


)-W0  PRINT 

MB50  PRINT 

11860  PRINT 

11090  FOR  1  =  SLOOP  TO  ENDL 

11900  PRINT  JSING  Ai!l;ADXPLT(I);ADYPLT(I)i.01 

11910  NEXT  I 

11920  PRINT 

11930  IF  PAGE  =  1  AND  PLOTP"  )  10  THEN  PRINT 

11940  IF  PAGE  =  2  AND  PLDTPT  )  £0  THEN  PRINT 

11950  RETURN 

11860  ’ 

11970  ’  IDENTIFY  EDITING  FUNCTIONS 

11900  ’ 


Point  Range  Hit  Probability’ 

«  (1  -  400  a)  (0-1)'’ 


Continued  Next  Page’ 
Coritinueo  Next  Page* 


11990 

PRINT  " 

11991 

PRINT 

12000 

PRINT 

12010 

PRINT 

12020 

PRINT  ’ 

12030 

INPUT 

1  -  Page  l 

2  -  Page  2 

3  -  Page  3 


4  -  Rcc  7  -  Retrieve’ 

5  -  Delete  0  -  Store" 

6  ••  Nodify  9  -  Cult’ 

Enter  — )  'lEDT 


120*0  IF  EDT  (  1  DR  EDT  >  9  THEN  GOTO  11800 

12041  IF  EDT  =  1  THEN  PAGE  =  1  :  SLOOP  =  1  :  GOTO  12056 


1204,? 

12045 

12050 

12051 

12052 

12053 

12054 

12055 

12056 

12057 
12060 
12070 
12080 
12038 
12180 
12101 
12110 
12120 
12130 
12230 


IF  EDT  =  2  THEN  PAGE  =  2  :  SLOOP  =11:  GOTO  12056 
IF  EDT  =  3  T)€N  PAGE  =  3  :  SLOOP  =  21  :  GOTO  12056 
IF  EDT  =  4  GOSUB  12100 
IF  EDT  =  5  THEN  GOSUB  12270 
IF  EDT  =  6  then  GOSUB  12420 
IF  EDT  =  7  T1£N  GOSUB  12690 
IF  EDT  =  6  ’’HEN  GOSUB  12800 
IF  EDT  =  9  THEN  GOTO  12860 
GOSUB  11001 
GOSUB  i;?90 
RETURN 

I 

’  ADD  A  RECORD  CF  EMPIRICAL  DATA 
1 

PLDTPT  s  PIDTPT  +  1  ’  INCREMENT  TOTAL  EXPIRICAl  ^INTS 

IF  PLDTPT  )  50  THEN  PLDTPT  =  30  :  GOTO  12230 

I  =  PLOTPT  ’  SET  POINTER  TO  NEXT  AVAILABLE  S’ORAGE  JOTION 

SCFUNC  ^  a  ’  CLEAR  LOOP  AROUND  RJIG 

QOSIJB  13600  ’  define  TWSF-  RANGE  1  MF  PRCBABILITV  COORDINATES 

RETURN 


H9 


12240 

12258 

’  DELETE  A  RECORD  C*  EUPI^RICAL  I 

:ATh 

12268 

t 

12270 

SQ51JB  11681 

1227! 

DRINT  "  - 

122B0 

PRINT  ' 

Enter  Point  v 

12201 

PRINT  “  " 

12202 

INPUT  ■ 

Dr  Enter  icri 

12263 

IF  Ut  =  •“  THEN  GOTO  12388 

12204 

DELNO  =  VAL(R»I 

12250 

;F  DtLNQ  ■  1  CR  3ELN0  1  PlCTP^  "rfN  30T3  1, 

12308 

■;  =  0 

12310 

FOR  !  =  1  TO  PLQTPT 

12320 

IF  I  =  DEL.NQ  THEN  GOTO  ; 

:23&0 

12330 

K  =  K  +  1 

12348 

ADXPLT(K)  =  ADXPLTd) 

12350 

AOyPLT(K)  =  ADYPLT'I) 

12360 

fCXT  I 

12370 

PLDTPT  =  PLQTPT  -  1 

12371 

G05UB  12520 

12372 

GOSUR  12688 

12360 

RETURN 

12390 

1 

12408 

'  NODIFY  A  RECORD  OF  EMPIRICAL  DATA 

12410 

1 

12420 

GOSUB  11611 

12421 

PRINT  “  ■ 

12438 

INPUT 

" 

12431 

IF  I  (  1  CR  ;  )  OLCPT  THEN  GOTO  12420 

12452 

GOSUB  11650 

12441 

At  = 

124^2 

S$  = 

'•4  \ 

12443 

PRINT  USING  Bt! 

”  PfiGt  «“ 

12444 

PRINT  ‘  " 

12445 

PRINT 

" 

12446 

PRINT 

12447 

PRINT 

12440 

PRINT  USING  h$:!:ADXPL’(I):ADYPLT(:)*.01 

12449 

PRINT 

a 

12450 

PRINT  ’  " 

12451 

PRINT 

" 

12452 

PRINT 

II 

12453 

PRINT 

a 

12454 

PRINT 

11 

12455 

PRINT 

II 

12456 

PRINT 

■» 

12457 

PRINT 

H 

12456 

PRINT 

n 

12459 

PRINT 

n 

12468 

PRINT  ■  ’ 

12461 

!>PUT 

u 

12462 

IF  SCID  =  1  T>€N  SCRM:  =  1 

:  GOSUB  13600 

12463 

IF  SCID  =  2  Tt€N  SCFjgC  =  0 

:  GOSUB  13758 

12464 

IF  SCID  =  3  TICN  SCFUNC  =  0 

:  GOSUB  13608 

12465 

IF  SCID  =  4  T)Cn  goto  12467 

;;oe»*  “o  Be  Seletea" 
To  Quit  -)*!«» 


’  SORT  R(ME  MD  HIT  PROBAfilLlTY  IN  ASCENDING  ORDER 
»  CONVERT  RANGE  AND  HIT  PROBABILITY  TO  SCREEN  COORDINATE 


Enter  C'oint  Nuitoer  To  Ilodify  ■‘•.I 
’  REFRESH  SCREEN 

I  \ 

PAGE:'  'ABLE  OF  EMPIRICAL  DATA  POINTS" 

Point  Ranee  Hit  PTooaoility'' 

»  il  -  B)  10  -  D" 


Enter  ^Unification  Ootion 

Ranoe .  1 

Hit  Probability .  2. 

Range  I  Hit  Probability  .  3 

Quit  .  4 


Enter--)  ’iSCID 

SOTO  124GG 
GOTO  1246G 
GOTO  12466 
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12A6& 

GOTO  12432 

12467 

RETURN 

12S11 

I 

12512 

'  SORT  BlPlRICflL  DATA  IN  ASCENDING  ORDtR  PCS  'ARK" 

12513 

1 

12529 

K  =  1 

12530 

FDR  IP  =  1  TO  PLOTPT-1 

12540 

K  a  K  +  1 

12550 

FOR  J  «  K  TO  PLOTPT 

12560 

IF  fflXPLT(lP)  (  fiOXPLTU: 

1  "'EN  jOTC  12570 

12561 

DUN0Y  =  ftDXPLT(J) 

12562 

DUmYl  »  flDYPL’(J) 

12563 

RDXPLTU)  =  ADXPLT(IP) 

12564 

RDYPLTIJ)  «  AOYPLTdPI 

12565 

ADXPLT(IP)  =  DUMMY 

12566 

ADYPLT(IP)  =  OUMKYl 

12570 

NEXT  J 

12500 

«XT  IP 

12590 

RETUBN 

12591 

* 

12592 

•  CONVERT  EfPIRICflL  ORTA  TO  CARTESIAN  POINT  SYSTEM 

12593 

1 

12600 

FOR  IP  3  1  TO  PLQTPT 

12610 

IF  TBTMO  <=  2  THEN  PLTXKIP) 

=  35  ♦  INT((ADXPLT(IP>/2)  ♦  3) 

12620 

IF  TSrNu  )  2  “t€N  PLTXXiiF') 

=  35  iHT((AvXPLT(IP)/2S)  *  3) 

12630 

PLTYX(IP)  =  INTUie  -  179  # 

(ADYPLTdPl/lM)))  +  179 

12640 

*CXT  IP 

12650 

RETURN 

12660 

4 

12670 

'  EXTRACTS  EMPIRICAL  DATA  FROM  FILE 

126S0 

1 

12690 

!F  TGTNO  2  TICN  GSEN  • 

POINTS. 3IL"  ’  CFE‘6  FILE  PoR  £  i  - 

12700 

IF  TGTNO  )  2  THEN  OPEN  "r,»l.  "POINTS. TNK"  ’  OPENS  FiLi  FDR  *AW<  ' 

12710 

IfPUT  #l.PL0TPT 

'  NUMBER  CF  ^INTS  '0  EXTRACT 

12720 

FOR  I  =  1  *0  PLOTPT 

12730 

INPUT  #1,ADXPLT(1),ADYPLT1I) 

'  EXTRACT  POINTS  FSON  FILE 

12740 

NEXT  I 

12750 

CLOSE  1 

12751 

G05UB  12520 

'  SORT  POINTS  IN  ASCENDING  ORDER 

12752 

GOSUB  12638 

’  CONVERT  POINTS  TO  CARTESIAN  POI' 

12760 

RETJR*' 

12770 

1 

12780 

'  STORES  EMPIRICAL  DATA  INTO  FILE 

12790 

1 

12600 

IF  TGTNO  {»  2  TIEN  OPEN  "0".§1,' 

■POINTS.  SIL* 

12610 

IF  TGTNO  '  2  THEN  OPEN  "OV«l.  "POINTS. TNK" 

12620 

WRITE  01,  PLOTPT 

'  NUMBER  CF  POINTS  "^0  SAVED 

12630 

FOR  I  =  1  TC  PLOTPT 

12640 

WRITE  itl,l©XPLT(I),ADYPLT(n  '  POINTS  SAVED 

12650 

NEXT  I 

12660 

aosE  1 

12670 

RETURN 

12880 

0 

12690 

'  DISPLAY  MIT  PROBABILITY  BY  RANGE  TABLE  FOR  TANK  TARGETS 

12900 

4 

■fiSKTS 

:e  "^rbets 
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;hi8 

12929 

12930 
12940 
12950 
12960 
12970 
129B8 
12990 
13000 
13019 
13920 
13030 
13040 
13850 
13060 
13870 
13080 
13090 
13100 

13112 

13113 

13114 
13120 
i3i30 
13140 
13159 

13161 

13162 

13163 
I3l70 
131S0 
13190 
13200 
13210 

13220 

13221 

13222 
13230 
13240 
13250 
13260 
13270 
13260 
13290 
13308 
13310 
13320 
13330 
15340 
13350 
13360 
13370 
13360 
13390 


GOSUD  11650  '  REFRESH  SCREEN 

PRINT  •  HIT  PROWDILITV  BV  RfiNGE  SND  AIM  iRRCR" 

PRINT  ■  ■ 


At  »  'N 

X* 

B*  «  "N 

\" 

C$  =  "X 

XM.M 

Dt  =  "\ 

X0i.ll  M.M  tt.0»" 

PRINT  USINB  80:" 

Theoretical  Curves  1  2  3  * 

PRINT  USING  D0;" 

Aia  Error  (ails)  ‘:SIGMl(l)!SIGl«l(2);S:6NAl  13) 

PRINT  "  " 

PRINT  USING  M;* 

Hit  ProSaoility' 

PRINT  USINB  Bt:' 

Range  (aeters) 

X  t  X  ' 

PRINT  USINB  C«5* 

588 

•;l)AT(1.25>iDATI2.25)iDATt3.25) 

PRINT  USING  C*.' 

1000 

‘;DAT(1.S0)  tDAT  12. 50)  iDRT(3. 50) 

PRINT  USING  Ct; " 

1500 

•;»Ttl,75)  ;DRTt2,7S):DAT(3.75) 

PRINT  USING  C$:‘ 

2000 

‘:DAT(l,lO0)iDAT(2. 180)iDAT(3.190) 

PRINT  USING  :t;' 

2500 

•;DAT(l.l25):DAT(£,:2E)jDATt3.l25) 

PRINT  USING  C*:' 

3000 

"  ;DAT(  1. 1 50)  i  DAT  (2. 150) :  MT  (3, 150) 

PRINT  USING  C4s' 

3500 

•;DATtl.iy5)iDATt2,l75'iDATt3,175) 

PRINT  USING  Cts* 

4000 

'  ;DATI1, 200)  :DRT  12, 200)  ;DAT  (3. 200) 

PRINT  ■  • 

PRINT 

Select  TTieoreticai  Curvets)  To  Disolav" 

PRINT  ■  * 

PRINT 

1  -  Curve  4 

4  ”  Curves  14  2  7  -  Curves  1|  2,  4 

rtftTknr  <4 

KnifU 

5  -  Carves  143  S  -  Quit" 

PRINT 

3  -  Curve  3 

6  -  Curves  2  4  3* 

PRINT  •  ' 

INPIJT 

Enter  'tAt 

'HEN  GOTO  12919 
S«  =  'TftLIfl*) 

iF  3M  (  1  OR  BN  )  B  THEN  SOTO  12910 
re'lRn 

’  display  It  3«:s  UiEtELS  ^OR  'ONK  "fiRGET  NAXIHON  RANKS 


LOCATE  25. 6 
PRINT  ‘RGE" 
locate  25, 13 
PRINT  '500" 
LOCATE  25.22 
PRINT  "laaO" 
LOCATE  25. 31 
PRINT  "1500" 
locate  25.  «0 
PRINT  "2000" 
LOCATE  25. 59 
PRINT  "2500" 
LOCATE  25. 59 
PRINT  "3000" 
LOCATE  25.  bS 
PRINT  "3500'' 
RETURN 


1 


dtfWERT  GRAPHICS  SCREN  COORDINATE  SYSTEN  INTO  "EXT  COORDINATE  SYSTEN 


134^ 

15478 

15468 

:3430 

15500 

15518 

15511 

13512 

15515 

« j5i4 

15515 

13516 

13517 

15516 
1351" 
13550 
13530 
13540 
13550 
13560 
13570 
15560 
13530 
13591 
15680 
15602 
15610 
15620 
15650 
15640 
15650 
13660 
15670 
13660 
15690 

13700 

13701 

13702 

13703 
13710 
13720 
13730 
13740 
13750 
15760 
13770 
13760 
13790 
13800 


C3L  =  INK.  1244  *  PLOTX(I.PTR)  +  3.336) 

ROW  =  INT(.1166  ♦PlDTYd.PTR)  +2.1) 

IF  ROU  )=  3  AND  ROW  (=  6  THEN  ROM  e  ROW  +  i 

IF  ROW  )=  7  AND  ROM  9  DEN  ROW  =  ROM  -  2 

IF  ROW  )=  18  AND  ROW  («■  24  DO  ROW  ■=  ROM  -  1 
RETJRN 
» 

’  DISPLAY  SUPPORTING  DOClJlENTflTION  FOR  GRAPHIC  ANALYSIS  MtlDULE 
1 

DRAM  ■BN*‘+VARPTRt(PLCTX(I.PTR))+',='+VAfiPTR<<PLOTY<l,PTR)) 

IF  PlOTYII.PTR)  (  26  ’fCN  draw  ‘0  a  R  a  BR  3"  ELSE  DRAW  "U  8  R  6  0R3" 

LOCATE  ROW.CX 

IF  I  =  1  AND  GN  »  1  TIEN  PRINT  'CURVE  1*  :  LOCATE  1,33  :  PRINT  USING  'CURVE  1  «  «.«  ai:»";SIS«Al  ID 

IF  1  =  2  AND  GH  =  2  THEN  PRINT  "CURVE  2*  :  LKATE  1,33  ;  PRINT  USING  "CURVE  2  =  «.*•  ailsKSISNAl  !2: 

I?  I  »  3  AND  GM  =■  3  TI£N  PRINT  'CURVE  3'  :  LOCATE  1,33  :  PRINT  USING  ‘CURVE  3  =  iMI.«  wls' ;SISMAH5) 

IF  I  =  1  AND  SM  •  4  THEN  PRINT  "CURVE  I’  :  LOCATE  1.20  !  PRINT  USING  "CURVE  1  =  W.M  sil5';SIBNAl(l) 

IF  I  s  2  AND  SM  =  4  TtN  PRI.NT  'CURVE  2'  :  LOCATE  1,45  :  PRINT  USING  'CURVE  2  =  «.«  ills" :SIG«A1  i2) 

IF  I  =  1  AND  GN  =  5  THEN  PRINT  “CURVE  1"  !  LOCATE  1,20  ;  PRINT  USING  "CURVE  I  *  rt.K  «ls“:SIG»«l(l) 

IF  I  s  3  AND  GM  =  5  TIEN  PRINT  'CURVE  3*  :  uOCATE  1,45  :  PRINT  USING  ‘CURVE  3  =  ##.M  ai2s‘;SIGNAli5) 

IF  I  =  2  AND  GM  =  6  THEN  PRINT  “CURVE  2‘  !  LKATE  1.20  :  PRINT  USING  'CURVE  2  =  ##.M  ■ils";SlG«Al(2) 

IF  I  =  3  AND  GN  =  6  t|EN  PRINT  'CURVE  3‘  :  LOCATE  1,45  :  PRINT  USING  ‘CURVE  3  =  ♦#.»#  ails"  ;SIB‘«;i(3) 

IF  :  *  1  AND  GN  =  7  D<EN  PRINT  "CURVE  1"  :  LOCATE  1.8  :  PRINT  USING  "CURVE  I  »  W.M  ulsKSlGlWKi) 

IF  I  s  2  AND  GN  =  7  TIEN  PRINT  ‘CURVE  2‘  :  i-OCATE  ;.23  i  PRINT  USI.N6  ‘CURVE  k  =  aiis-iSiiaflKE) 

IF  I  =  3  AND  GN  =  7  DIEN  PRINT  "CURVE  3‘  :  LOCATE  1.56  :  PRINT  USING  "CURVE  3  =  rt.M  ails":S15MQl<3) 

RtPUNN 
1 

'  EMPIRICAL  DATA  USING  ENTER  -..NOTION 


Enter  "araet  Ranre  II  -  480  ai 
Enter  Tarcet  Ranoe  (1  -  4000  a) 

Or  tniB'*  (cr)  To  Quit 


Enter  — )  ■;hi 


1  =  8 

SCFUNC  =  2 

G05UB  11650  '  REFRESH  SCREEN 

PRINT  ■  * 

;ri.nt  ■  _ 

PRI.VT  "  I 

IF  TS  "NO  i=  c  ""lEN  PRINT  '  I  Enter  "araet  Ranre  11 

I'"  tgTNu  .  2  DEN  PRINT  “  1  Enter  Tarcet  Ranoe  (1 

PRINT  ■'  ! 

PRINT  "  I  Or  tniB'*  (cr)  To  Quit 

PRINT  ■'  . _ 

PRINT  ' 

INPUT  •  Enter  -)  ‘ 

IF  Ai  =  “  AMD  I  =  8  DEM  PLOTPT  =  8  :  GOTO  13878 

IF  A»  =  -  AND  :  I  8  ’■REN  PLCTP'T  =  I  :  30TC  13850 

IF  SCFUNC  =  2  DEN  I  =  :  +  1 

IF  i  )  58  TEN  PIOTPT  =  58  :  GOTO  15850 

ADXPLT(l)  =  VRLlAt) 

IF  TGTNO  (=  2  DEN  IF  ADXPLT(I)  (  1  DR  AOXPLKI)  >  400  THEN  GOTO  15680 
IF  TT5TX0  )  2  THEN  IF  ADXPLTC)  <  1  DR  ADXPlTII)  )  4000  TO  GOTO  13600 
IF  SCFUNC  >  1  THEN  GOTO  13850 

GOSUB  11650  '  REFRESH  SCREEN 

PRINT  “  _ ■ 

PRINT  "I  i‘ 

PRINT  “  1  Enter  H:t  ProOadjhtv  (8  -  1)  I' 

PRINT  "  I _ _ _ r 

PRINT  “  ■ 


Enter  H:t  ProOadjhtv  (8  -  1) 


I 


EntBr-)  ’tWYIiLTd) 


:  jctid 
:2S-i 

m  MtltlO 

;  :3s' 
:33!J 
.  Zfi&j 
.3373 
13»j3 
ISImJ 
151M 
:5!6J 
;5;:j 

15171 

15172 

15173 

15174 

15175 

15176 

15177 
15181 
15162 
151S3 
15191 
i!i2S« 
15239 
1S24« 
:525« 

15269 
15261 

15270 

15271 
15269 
15299 
15559 
15569 
15579 
15581 
15581 

15691 

15692 
15603 

15694 

15695 

awDOO 

15697 

15698 

15699 
1X19 
15611 
1X12 
1X13 
!X14 
1X15 
1X16 


INPiiT  ' 

flDYClTil)  •  flDYPl.T(I)*lW 
:?  ftDVPLTdl  <  1  OR  flDYPLT(I)  )  MN  GOTO  13750 
IF  SCRJNC  (  2  ■mO)  GOTO  13B59 
GOTO  13690 

saSiS  13529  'SORT  POIMTS  BY  X  COORDINA7I  IN  PSCEMDIl^  ORDER 

SDSUB  12690  'CONVERT  POIMTS  TO  CARTESIAN  POINT  SYSTEM 

RETJSN 


'  IDEMTIFY  WHC:^€R  TO  ISCliJDE  CR  EXtlLDE  EMPIHICflL  DATA  FROM  PLOT 

I 

IF  flODEC  «  1  TKEN  flPDEC  ■  0  :  STSEC*  »  ''DCinED*  :  GOTO  15171  '  EXdUDE  EMPIRICAL  DATA  FROM  PLOT 

IF  ADDEC  »  0  ’>©4  ADDEC  ■  1  :  STSEC*  «  •INCLUDED*  ’  INCUJOE  EWIRICBL  DATA  FROH  PLOT 

RETUIW 


'  IDETfTlFY  WAIVER  TO  INCLUDE  OR  EXaUDE  THEOIETICRL  DATA  FROM  PLOT 

IF  ADDTC  *  1  THEN  ADOTC  =  9  :  STSTC*  »  "EXCUIIED*  :  GOTO  15177  '  EXCLUDE  THEORETICAL  DATA  FROM  PLOT 

IF  ADDTC  =  9  THEN  ADDTC  =  1  :  STSTC*  =  •INCLUDED*  •  INaUDE  TTCDRETICft.  DATA  FROM  PLOT 

RETURN 


'  DISPLAY  8RAPHIC  ANALYSIS  MODULE  TCORETICAL/ENPIRiCAL  SRAPHS 


as 

CuLuR  15 

IF  TBTNO  <=  2  TIEN  QDSUB  10710 

IF  TGTMO  )  2  THEN  GOSUB  13220 

GOSUB  10620 

GOSUB  11110 

GOSUB  11490 

GOSUB  1 1330 

COLOR  15 

A*  =  IhKEY*  :  IF  A*  =  ■•  GOTO  15280 
RETLRN 


'  OUTPUT  X  LABaS  (RANE  OF  E  OR  F  SILDUEnE  TARGETS)  FOR  GRAPH 
’  OUTPUT  X  urns  (RANG  OF  TANK  TGTS)  FOR  GRAPH 
’  OUTPUT  Y  LASaS  (HIT  PROBABILITY  VALUES)  FOR  GRAPH 
’  OUTPUT  GRAPH 

•  DRAM  EMPIRICAL  l^INTS  AND  LIES 
’  DRAW  TEORETICAl  LINES  TO  GRAPH 


'  DEFIE  AIN  ERROR  FOR  EACH  THEDRaiCCL  DRVE  FOR  GRAPHIC  ANALYSIS  MODULE 


IF  TGTNO  )  2  7FCN  I  TP  =  29  :  ID.'D  =  ••W9 
IF  TBTNO  ;=  2  THEN  ISTA  »  :  lENO  =  490  : 
NUM  =  0 

IF  QORND  =  1  ^EN  GO'O  -.56*0 
GOSUB  157'0 

IF  TAEID  >=  2  then  GOTO  15739 
GOSUB  ;  1650 

B(  5  "N 

PSIlfT 

PRINT 

IF  PM  =  1  DEN  PRINT  USING  B*;’ 

IF  PM  =  2  THEN  PRINT  USING  B*:* 

IF  PM  =  3  DEN  PRINT  USING  B*;’ 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


:  'GIE;  =  20 
ISTtP  =  2 


'  REFRESH  SCREEN 


\N#i.00\  x- 


I  !• 

I  Current  Aie  Error  For  1st  Curve  “:3I6MRrPMI;"  mils 

'  Current  Pie  Error  For  2nd  Curve  " :SIEMA1 tPM) :*  ills 

1  Current  Aie  Error  For  jrd  Curve  “iSIGNAl (PM) •*  ails 

i  !• 

I  Enter  (cr>  To  Keeo  Current  Value  I* 

I* 

!  Or  Enter  Net*  Aim  Error  (;n  ails)  I* 
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Enter  — )  ';P* 


.'iio 

:5£i7 

:fiE? 

ifi:-: 

;5i:5 

::fc;7 

:5bH; 

:^5'J 

'.5670 

15680 

15690 

15700 

.5710 

15738 

157^0 

15750 

'5760 

15770 

15772 

15773 

4wroi 

15782 

'.5790 

15600 


15602 

15806 

15607 

15610 

15820 

15630 

15831 

15832 
15655 
!56m0 
15660 
15870 
*5660 

15881 

15882 

15883 
15886 
15M5 

15906 

15907 
15906 
15910 
15920 

15930 

15931 
15940 


lirlNiL  "“cZis  iZiTt  -1“  - ^GIiiEl_.'7 1  -1.9  ZhCft  mI''  t.9fiCfi  >WD  SPNGE 
EiGtcicii'  *  .0000: 

•15  7>;  •  .3*7  3  lEND  :"E7  13'^? 

MU."  =  ; 

'3  =  '3  *  3! 3.‘h1  , r 'll  .  ii00 

3CSGB  5?.'  '  £S7fiBLISH  -I*  PROBftBlLITY 

DPT(PM.nuii)  ^  JROB 
PLCTXiPK.  NUMI  =  35  '8M  »  3 

PLC’^'iPM.MLW)  =  '»ia  -  179  » :;r  xvlto'  - 173 
sEaT  96 
hETUPn 


'  OETE.'WIIE  MPNICR  IN  rfllCH  PIN  ERROR  IS  TO  BE  COUHJTED 


GOSUB  11650 
PRINT  “ 
PRINT  " 

i-nin* 

PRINT  * 
PRINT  " 
:RI.NT  " 

point  •' 

PRINT  ■' 
POINT  “ 
PRINT  • 


’  REFRESH  SCREE.N 


I  Select  Error  c&tiiMtion  Got  ion 

I 

Enter  ’otai  Pie  Error  . 

isii'Mte  £rtor  Orn*  'Zowx.nent  ( 51 


Retrieve  Prior  EstiMates  . .  3 

Quit  . . . . .  4 


IrtfKjt  “  Enter  — '  VTPEID 

IF  TREIO  '  1  OR  TPEID  1  4  THEN  50^0  15770 


It 


IF  TPEID  =  1  OR  'PE’D  =  «  TrtN  GOTO 
IF  TPEIP  =  c  "HEN  3DT0  ;58»0 
SOSUB  ;7-.33 
GOTO  15930 
I.R  »  0 


15950 


’  RETRIEVE  PlHiNG  CIXPOnEMT  E5TIM0TE  OPTP 
'  JEVELZP  'OTPl  pin  E=RDR 
’  INITIPLIIE  ODWlTER 


GOSUB  16030 

IF  .34PID  =  13  i^.N  ">7CT3?iT*!! 

GOSUB  11650 

fit  =  'N 

PRIM 

PRINT 

PRINT  USING  P*:' 


’  PISPLPV  PIHING  C!>PGNENT  NPNE  NEMU  fi.ND  vPrE  CINPONENT 
-!.•%:  GO'-Q  15938 

’  REFRESH  5C.REEN 
\i\ 


I  3c«ooner>t  Niwe  ";LNP>CliP'*.  IK):"  i* 


PRINT 
PRINT 
PRINT 
PRINT  •  " 

INPUT 

GOTO  15860 
!o  TflC'ORlPNi 
GOSUB  17330 
3C3UB  16550 


I  Enter  Value  (in  nils) 


!■ 

1" 


Enter—)  ’iCVPlijEtPN,  IK) 


0  ^.€N  30TC  15770  '  EStIMPTE  1?PTP  UhSN' ’  CREPTEC 

’  miOUTE  TOTPL  ESTINPTO  PIN  ERROR 
'  OISW-PV  hININE  error  CC.'OOtNT  STPTUS  NENU 

q*-. 


'  DISPLAY  MEIiU  RJNCTI3NS 


15941  GOSUB  16653 

15951  RETURN 

16Bee  ' 

16«ie  '  DISPLAY  AIMING  COKPC^NT  'iMU 

16020  ’ 


16039 

GOSUB  11658 

.w«:cn  3u?CL,i 

16031 

AS  = 

"\ 

\" 

16032 

PRINT 

N 

1 

16033 

PRINT 

;i 

1  ** 

16049 

PRINT 

0 

Enter  -o  Tc  33  Coriioonents 

1  s 

16041 

PRINT 

1 

1 

16042 

PRINT  USING 

At:’ 

1  Entering  Ccf/iDonen:  “jIKi-! 

il 

16050 

PRINT 

M 

1 

i  " 

16069 

PRINT 

u 

:  Heaoon/ Round  Cisoersion  .... 

.  1 

1 " 

16070 

PRINT 

n 

i  Firing  Position  . . 

.  2 

! 

16089 

PRINT 

II 

:  Trigger  Cc'ntrol  . . 

.  3 

1 

16090 

PRINT 

II 

i  Breath  Control  . 

.  4 

! 

16109 

PRINT 

II 

i  Physical  Condition  . 

.  5 

1 

16110 

PRINT 

H 

1  Stress  . . 

.  6 

1 II 

16129 

PRINT 

fl 

1  Suooressive  Fire  . 

.  7 

1 

16130 

PRINT 

H 

1  Target  Range  . . 

.  8 

1  H 

16140 

PRINT 

II 

1  Target  Soeed  . 

.  9 

1" 

16150 

PRINT 

■ 

1  Target  Size  . 

.  10 

16169 

PRINT 

■ 

1  Target  Exoosure  Time . 

.  11 

1 

16170 

PRINT 

II 

1  User  Defined  Ccaioohent  (s)  .. 

.  12 

1" 

16171 

PRINT 

« 

1  Quit  . 

.  13 

1" 

16180 

PRINT 

1 

1 

: 

i  biSl 

PRINT  '■  • 

16130 

INPUT 

• 

Enter  ->  'jCMPID 

16290 

IF  OIPID  < 

1  OR  CMPID  1 

12  'HEN  GOTO  16030 

16210  ' 

16££0  ’  SET  COMPONENT  NAME 

16230  ' 

16231  IF  CMPID  =  13  TIEN  ijOTfl  16510 

16232  IK  =  IK  +  1 

16233  I?  IK  )  50  THEN  GOTO  16038 

16240  IF  CMPID  =  1  THEN  CNAM£$(PN, IK)  =  "Heaoon/ Round  CisDersion" 

16258  IF  CNPID  =  2  T)€N  CMR«$(F«(,  IK)  =  Position 

16260  IF  OIPID  =  3  TIEN  CNAME$(PN,  IK)  =  “Trigger  Control 

16270  IF  CMPID  =  4  TF£N  CNR*$IPIt,  IK)  =  ’BrsatN  Control 

16280  IF  G1PID  =  5  THEN  CNANE»(PM. IK)  =  “Physical  Cowlition 

16299  IF  aPID  =  6  THEN  CNWf»(PK,  IK)  =  "Stress 

16300  IF  CKPID  =  7  THEN  CN«1£$(P«,  IK)  =  "Su:cre6sive  Fire 

16319  IF  OIPID  =  0  DEN  CNfllC$(P)l,  IK)  =  "Target  Range 

16320  IF  CMPID  =  9  THEN  CNA«E$(P«,  IK)  =  "Target  Soeeo 

16338  IF  CMPID  =  10  DEN  D«)EI(PM,  IK)  =  'Target  Siae 

16340  IF  CMPID  =  11  THEN  CNOMEKPM,  IK)  =  'Target  Exoosurs  'lue 

16345  IF  Otf>ID  <=  11  THEN  SOTO  16510 

16346 

16347  'SET  COMPOICNT  NRICS  RSSXIATED  VALUE 

16340 

16350  GOSUB  11650  •  REFRESH  SCREEN 

16351  PRINT  '  _ 

16352  PRINT  "  I 

16360  PRINT  “  I  User  Defiried  Cosoonent 
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1&3GI 

16362 

16370 

16371 
163S0 
16590 
164«0 
16410 
16420 
16430 
16450 
16510 
16520 
16530 
16540 

16550 

16551 

16552 

16553 

16554 

16555 

16556 

16557 
16550 

16559 

16560 
16570 
1657! 
;5530 
.6599 
16600 
16610 
16620 
16630 

16640 

16641 

16642 
;66-^3 

16646 

16647 

16648 

16649 

16650 

16651 

16652 

16653 

16654 
16657 
16660 
16661 
16662 

16663 

16664 
16670 
16680 


PRINT  "  I 

PRINT  "  I  Enter  ConKriSrit  Vaae  'Ud  To  £3  u.sracnersl 

PRINT  ■  I _ 

PRINT  •  * 

INPUT"  Er.ter  — j 

V  =  L£N(CNflME<(P«,IK)) 

IF  V  )  23  OR  V  =  0  THE.N  HTTO  16350  '  £S=2S  -AN2.;\i3 

IP  V  (  23  THEN  BOTD  16430 
SOTO  16510 

VI  =  23  -  V 

CN»1E«(P«,IK)  =  CIW!C«(P«,IK)+BLfiNK$;'.;)) 

RETURN 


•  DISPLAY  COtf'Ote.NT  AININB  ERROR  STATUS  HENU 


PAGE  =  1  :  SLOOP  =  1 

'  FIRST  TINE  IN 

GOSUB  11650 

’  REFRESH  SCREEN 

IF  PAGE  s  1  file  TFACTOR(PN) 

(-  10  THEN  ENDL  =  TFAIH'DRlPM) 

IF  PAGE  =  1  AND  TFACTORlPN) 

)  10  TFEN  ENDL  =  10 

IF  PAGE  s  2  flic  TFACTOR(PN) 

(=  10  TIO  ENDL  =-  10 

IF  PAGE  =  2  AND  TFACTOR(PN) 

)  10  AND  TFACTDRIPN)  (=  20  TI€N 

ENDL  =  TFRCTORIPM) 

IF  PAGE  =  2  fitC  TFACTCRlPN) 

)  20  THEN  ENDL  =  20 

IF  PAffi  *  3  AND  TFACTOR(PN) 

(=  20  Tf€N  ENDL  =  20 

IF  PAGE  =  3  file  TFACTORIPN) 

)  20  THEN  ENDL  =  TFACTORlPN) 

C«  = 

'■\  \»\ 

PRINT  USIW  C»! 

"  PAGE  *  "iPASE:" 

TOTAL  ESTINATED  RIM  ERROR' 

PRINT  •  ■ 

At  = 

"\ 

\  m,  31" 

Bt  = 

"  ## 

\  «##.»#“ 

PRI.NT 

■ilCJlPONENT 

COIMPONENT 

COMPONENT' 

PRINT 

"  NO, 

NAME 

VALUE’ 

PRINT 

H  —  ^11^— 

FOR  :  =  SLOOP  TO  ENDL 

PRINT  USIN6  f*!J!CNflME»(PN,  J);CVfiLU£(P»t,J) 
NEXT  J 
PRINT 

IF  PAGE  =  1  AND  TFflCTOR(P«)  )  10  THEN  PRINT  " 
IF  PAGE  =  2  AW  TFflCTOR(PN)  )  £0  THEN  PRINT  " 
IF  GTM  =  2  THEN  PRINT  USING  fl»:' 

IF  5TYPE  =  1  THEN  PRINT  'USING  At:" 

PRINT  •  ■ 

RETURN 


Contimjec  Next  Pace"  :  SOTO  16648 
Concinueo  Next  Pace'  :  SOTO  16648 
Total  Error  ■;3IG1W1(PH) 

Total  Error  ';SIGBA 


’  DISPLAY  MENU  FUNCTION  ID  IMFORNATION 


PRINT  " 

1  -  Page  1 

4  -  AdU  7  -  Retrieve' 

PRINT  ■ 

2  -  Page  2 

5  -  Delete  8  -  Store" 

PRINT  • 

3  -  Page  3 

6  -  Modify  9  -  Quit’ 

PRINT  ■  ' 

INPUT  " 

Enter  -)  "jMENUID 

IF  .'«NU]D  =  1  THEN  PAGE  =  1  :  SLOOP  =  1  ;  GOTO  16730 

IF  ICfiJIO  =  2  TWN  PAGE  =  2  ;  SLOOP  =  11  :  GOTO  16738 

IF  MENUID  =  3  T}©l  PAGE  =  3  :  SI.OOP  =  21  :  GOTO  16730 

IF  ICNUID  =  4  TWN  GOSUB  16668  :  GOSUB  17320 

IF  MENUID  =  5  THEN  GOSUB  17039  :  GOSUB  17320 
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l£&<]a  IF  l€NUID  =  &  net  GOSUB  1718«  ;  GOSUB  17320 

1G7«  IF  MEMJID  -  7  TIEN  SSUB  17423  :  GOSUB  17320 

16710  IF  HENUID  =  6  TIEN  GOSUB  17600 

16726  IF  rCNUID  =  3  TfEN  GOTO  16740 

16720  GOSUB  1655i 

16731  GOSUB  16653 

16740  RETURN 

16630  ' 

16840  '  flOD  R  CONPONENT  RECORD 


16850 

16660 

16870 

16860 

18690 

16900 

16310 

16320 

16335 

16336 

16337 

16338 
16341 
16942 
16343 
16945 
16346 
16950 
16990 
17000 
17010 
17020 
17030 

17040 

17041 

17042 

17043 

17044 

17045 
17060 
17070 
17060 
17090 
17188 
17110 

17120 

17121 

17122 
17130 
17140 
17153 
17160 
17170 
17180 
17130 


TfflflC  =  0 
IK  =  TFflCTORlPM) 

GOSUB  16030 

IF  CKPID  =  13  THEN  GOTO  16390 
IF  TCFUNC  =  1  TIEN  GOTO  16990 
IF  TffUNC  =  2  THEN  GOTO  16335 
TFftCTOR(PK)  =  TFflCTOR(PM)  ♦  1 
GOSUB  11650 
=  'X 

PRINT 


PRINT 

1 

r 

PRINT  USING  R$;‘ 

1  CooDonent  Nue  ';CNflNE)(PM, IK) l‘ 

PRINT  ■ 

1 

r 

PRINT 

i  Enter  Ualue  (in  a<ls) 

1" 

PRINT  • 

1 

1 '' 

PRINT  •  " 

INPUT 

Enter-)  'jCVflLUEtPN,  IK) 

RETURN 

’  DELHE  fi  COMPOIEWr  RECORD 

I 

GOSUB  16551 

PRINT  ’  Entar  Cofnoonent  Numoer  To  Be  Deleted" 

PRINT  “  “ 

INPUT  ■  Or  Enter  (cr)  To  Quit  — )  ‘jftl 

IF  fit  =  ■•  T®J  GOTO  17140 
DELNO  =  VALIR*) 

IF  DELNO  <  1  OR  DELNO  >  TFflCTOR(PM)  THEN  GOTO  17030 
K  =  0 

FDR  I  =  1  TO  TFfiCTOR(P«) 

IF  I  =  DELNO  THEN  GOTO  17120 
K  =  K  +  1 

CNM1E«(PN,K)  =  CNMEdPH.!) 

CVflLUE(PN,K)  =  CVflLUE(Pll.l) 

NEXT  I 

CNflRE«(PN,TF«:TOR<PM))  =  “  " 

CVRLlEtmjFRCTORCm))  =  0 
TFRCTORtPHl  =  TFfiCTOR(PK)  -  1 
RETURN 

'  MDDIFT  P  COMPOhCNT  lECORD  (KAIC  DR  WU3JE  OR  BOTH) 

I 

GOSUB  16551 

INPUT  *  Enter  Comoonent  Number  To  Be  Modified  — >  ';IK 


'  DISPLAY  RIMING  COMPOIENT  NflbE  ^ENU 


•  REFRESH  SCREEN 
\l\  \* 
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17191 

IF  IK 

<  1  OR  IK  )  TFACTOR(PM)  TIEN  GOTO  17160 

:7132 

(30SUB 

11650 

i71?5 

B$  = 

n 

M 

\  \ 

m.Mi" 

17197 

PRINT 

■ 

COWONENT 

COMPONENT 

COMPONENT" 

!7!?3 

PRINT 

n 

NO. 

NAK 

VALLE" 

PRINT 

n 

1  /ii0d 

PRINT 

USING  B«;1K;CNA)E$(PN,  IK)  ;CVALUE(PM,IK) 

17281 

PRINT 

■ 

17210 

PRINT 

■  n 

1721! 

PRINT 

“ 

u 

17212 

PRINT 

u 

1 

I" 

17220 

PRINT 

H 

1 

Enter  Modification  Ootion 

17221 

PRINT 

■ 

1 

1" 

17225 

PRINT 

n 

1 

NaM . 

1 

1' 

17226 

PRINT 

■ 

1 

Value  . 

2 

i" 

17227 

PRINT 

a 

1 

Nane  X  Value  . 

3 

I* 

17226 

PRINT 

■ 

1 

Quit  . . 

4 

1  H 

1 

17229 

PRINT 

II 

1 

I" 

17230 

PRINT 

M  M 

17231 

INPUT 

M 

Enter--)  ’iSCID 

17240  IF  SCID  =  I  THEN  TCFDNC  =  1  :  IK  =  IK  -  1  :  GOSUB  16860  :  TCFUNC  =  0  !  SOTO  17280 

17250  IF  3CID  =  2  TIEN  -RJlIlC  =  0  j  EOSUB  1S935  :  SOTO  17230 

17260  IF  SCID  =  3  THEN  TCFUNC  =  2  :  IK  =  IK  -  1  :  80SUB  16860  s  TCRJNC  =  0  :  GOTO  17280 

17270  IF  SCID  =  4  TIEN  GOTO  17280 

noil  entn  iioo 

«  <  W i  WW iv  «< 

17260  RETURN 

17298  ' 

17301  '  COMPUTE  TOTW.  ESTIMOTED  PIN  ERROR  FOR  PPRRMETEil  PKD  GRAPHIC  ANALYSIS  MODULES 

173:8 

17320  FOR  I  =  1  TO  TFACTCIR(PM) 

17330  PET  *  RET  T  CvYlLUE  (PM,  I ) ''2 

17340  NEXT  ! 


17550 

17360 

17370 

17360 

17390 

17400 

17410 

17420 

17422 

17423 

17424 

17425 

17426 

17427 
17426 

17429 

17430 

17431 

17432 

17433 

17434 

17435 

17436 


RET  s  SQR(AET) 

IF  CTYPE  =  1  THEN  SIGMfl  =  RET 
IF  6TYPE  =  2  THEN  SIGMRKPM)  =  RET 
RET  *  0 
RETURN 


'  RETRIEVE  COMPOrCrTI  EBTIMPTES  FROR  FILi 


IF  ST'TPE  =  !  THEN  OPEN  "!",#l,‘flEMDL.EST’ 
FOR  J  =  1  TO  PK 

IF  J  0  PN  THEN  GOTO  17434 
INPUT  41.  TRACTOR  (J) 

TDUMMY(J)  =  TFRCTOR(J) 

FOR  I  =  1  TO  30 

INPUT  *i,CNAME«(J,I),OV*PLlE(J,I) 
DNANESU,!)  =  CNAMEilJ.I) 
DVALUEC.I)  =  CVALUEIJ.I) 

NEXT  I 

GOTO  17438 

INPUT  II.TXJMMYIJ) 

FOR  I  =  1  TO  30 

INPUT  I  '?€*(J,I).DV«.UEiJ.i; 


PK  -  1  ELSE  OPEN  "IMl, ’REDAM.EST’  :  PK  =  3 


'  NUMBER  OF  COMPONENTS  TO  EXTRACT 
’  SAVE  HWBER  OF  COMPOItNTS  IN  DUMMY  FIELD 

’  EXTRACT  AU  AIN  ERROR  COWUNENT  NAMES  AND  VALLES  PREVIOUSLY  DEFINEI 
'  EXTRACT  COM>ONET  NOME  AND  VPLIES  FROM  FILE 
’  SAVE  CDPONENT  NR)C  IN  DUMMY  FIELD 
*  SAVE  COMPOrCNT  VALUE  IN  DUI«Y  FIELD 
'  GET  NEXT  PAIR  OF  COMPOlCNTS 
’  SKIP 

'  .  'UBER  OF  CCMPOIENTS  TO  EXTRACT 
'  EXTRACT  ALL  DUMMY  AIN  ERROR  CONPOIENT  NAMES  AND  VALUES 
'  EXTRACT  COMPORT  6.4ME  AND  VALlEB  FROM  FILE 
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’  GET  NFIT  PAIR  OF  IXWV  COMPONENTS 


;7;;7 

riEr  : 

’  GET  NEXT  PAIR  OF  DUNMY  COMPONE 

NTS 

17A58 

I^XT  J 

17453 

CLOSE  1 

1744(J 

RETURN 

174^1 

t 

1744S 

•  STORES  COMPONENT  ESTIMATES  INTO 

FILE 

17445 

1 

17801 

IF  3TYPE  -  2  THEN  OPEN  “0".#1, 

"AEDAM.EST”  :  PR  =  3 

17810 

IF  GT^'PE  =  1  THEN  OPEN  “0".#1. 

"AENDL.EST"  :  PK  =  1 

17811 

FOR  J  =  1  TO  PK 

17812 

IF  J  0  PM  THEN  GOTO  17852 

l?8c« 

WRITE  ill,  TFfiCTORiJ) 

•  NUfieER  COMPONENTS  TO  SAVED 

17830 

FOR  I  =  1  TO  30 

17840 

WRITE  »1 ,  CNANEt  ( J,  I) ,  CVALUE  (J.  I)  •  COMPONENT  NRKE  AM)  VALUES  SAVED 

17850 

(CXT  I 

17851 

SOTO  17859 

17852 

WRITE  #l,TDLJ»ttY(J) 

'  NUMBER  OF  COI«Ot€NT5  TO  SAVED 

17854 

FOR  I  =  1  TO  30 

17857 

WRITE  #l,ONRNEt(J,I),DVAliJE(J,I)  ’  COMPOICNT  NAI€  MD  VALLES  SAVED 

17858 

NEXT  I 

17859 

NEXT  J 

17860 

CLOSE  1 

17870 

RETURN 

17900 

1 

17910 

'  SPECIFY  THEORETICAL  CURVE  FUNCTIONS 

17920 

1 

17930 

60SUB  11650 

'  REFREW  SCREEN 

17931 

At  »  'V 

\i\  \‘ 

ro 

Bt  = 

\“ 

17933 

c 

SI 

410 

\" 

17934 

Dt  =  "\ 

\m.m  v 

17335 

Et  = 

\i\  \* 

17936 

Ft  =  "\ 

17337 

G$  =  "N 

'ttit.  »i\ 

\" 

17938 

H$  =  "\ 

\S0.»f\ 

\- 

17940 

PRINT 

II 

17950 

PRINT  •  i 

1" 

17960 

PRINT  "  1 

Define  Battlefield  Situation 

.  II 

17965 

PRINT  USING  At;"  1 

Projectile  Tyoe . .....‘;RDt;" . 

1 

1" 

17966 

PRINT  USING  Bt!-  I 

X  Aie  Point  Adjustaent  ...';CJX;"  ■ 

2 

1" 

17%7 

PRINT  USING  Bt;“  1 

Y  Aim  Point  Adjustaent  ...'';CJY;'  a  .... 

3 

I- 

17970 

PRINT  USING  Ct;"  1 

Battiesicht  Range . ';R6:“  a  .... 

4 

1- 

17980 

PRINT  USING  Dt;"  1 

Crossdrift . -!V«!"  n/s . 

5 

a 

17990 

PRINT  USING  Et;“  1 

Target  Tyoe  ... -;TTYP£t;- .  6  l‘ 

18000 

PRINT  USING  Ft;-  1 

Target  Heiant . °;B;’  o . 

7 

I- 

1S010 

PRINT  USING  6t!"  1 

Target  Soeed  .  -iVR;*  a/s  . 

8 

- 

18029 

PRINT  •  1 

Define  Ain  Error 

r 

16030 

PRINT  USING  Ht:“  1 

Curve  1 . °:SI6MA1I1);*  nils . 

9 

18040 

PRINT  USING  Ht; "  1 

Curve  2 . ';SI9tAl(2) ;*  nils . 

10 

16050 

PRINT  USING  Ht;"  1 

Curve  3 . "iSIGNAKS);*  nils . 

11 

18052 

PRINT  "  1 

Store  Curve  Paraaeters  . 

12 

1- 

18053 

PRINT  "  1 

Retrieve  Curve  Paraaeters  . 

13 

1" 

18060 

PRINT  “  1 

Quit . . . 

14 

I- 

18070 

PRINT  ■  1 

I- 

18000 

PRINT  -  " 
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16090 

18106 

16110 

iai&6 

16125 

16130 

16140 

16150 

16160 

16170 

16190 

16200 

16210 

18212 

16213 

16220 

!6ccl 

16222 

18223 

16224 

18231 

16232 

16233 

18234 

18235 
16236 
18237 
18240 
16250 
18260 
;8£70 
18280 
18290 
1B300 
16310 
18320 
16330 
18360 
1B370 
18380 
16390 
16400 
16410 
16420 
16430 
16455 
16470 
16488 
16490 
18S08 
18510 
18520 
18560 
16561 
16570 


INPUT 


F  KM  t 

:f  km  = 

F  = 

;f  km  = 

F  = 


1  OR  K4  5  14  THEN  Si";- 
1  7r£M  OOEIjE 


2  THEN  -OflaoB 

3  THEN  GilSLb  (1C  /  ^ 
•t  THEN  jCSJB  730 


IF  KM  =  5  THEN  jDSUB  940 

IF  KW  =  6  THEN  30536  1090  3C£jB  1333  ' 
IF  kM,  =  7  THEN  333uB  1250  ' 
IF  KM  =  3  T:-€N  skis  1540 

IF  KM  =  9  THEN  ECRND  *  0  !  =  1  :  3C£i.S  15560  ' 
IF  :-mM  =  10  T-HEij  GQRnD  =  0  :  Fl  =  1  :  OCslS  15530  ' 
IF  KM  -  11  THEN  oORND  =  0  :  FM  =  3  :  32SjS  15530  ’ 
IF  KM  =  12  Tl£«  oOSUEi  16850  ' 
*F  KM  ~  THEjN  SOSud  i£7l0  ^ 


IF  KM  =  14  THEN  30T0  13240 


GOTO  17930 


DEFIIC  PROJECTILE  TYPE 
DFINE  X  PIN  POINT  ADJUSTMENTS 
DEFINE  Y  RIM  POINT  ADJUSTMENTS 
DEFINE  BATILESIGHT  RANGE 
DEFINE  CROSSDRIFT 
DEFINE  TARGET  TYPE 
DEFINE  TARGET  HEIK4T 
DEFINE  TARGET  SPEED 
DEFINE  AIM  ERROR  FOR  QJRVE  1 

ds^ine  aim  error  for  curve  2 

DEFINE  AIN  ERROR  FOR  CURVE  3 
STORE  BATTuEFIELD  SITUATION 
RETRIEVE  DATTLFIEU)  SITUATION 
QUIT  TICORETICAL  CURVE  DEFINITION  ICNU 
REDO  THEORETICAL  CURVE  DEFINITION  MENU 


’  COMPUTE  ALL  THECRETICPL  CURVE  DATA  POINTS  AND  PLOT  CURVES 

I 

IF  PDDTC  =  a  THEN  GOTO  18236 
GQRND  =  1 
FOR  PI  M  TO  3 
GOSUB  15580 
NEXT  PM 
GOSUB  15190 
60RND  *  0 

RETURN 

% 

'  DISPLAY  EMPIRICAL  DATA  'UNCTION  MENU 


GOSUB  116S0  ■  REFr£&(  SCREEN 

PRINT  "  _ 

PRINT  ■’  I 


PRINT  "  Define  L'30ir:cal  Data 


PRINT-  I  -Enter .  11^ 

PRINT  '  -  Retrieve  .  2  i " 


PRINT'  I  Store .  3:’ 

PRINT  '  !  Quit  .  4  1" 

PRINT  "  I _ I" 

PRINT  "  “ 

INPUT  ”  Enter  — )  ‘jKM 

IF  KM  1  1  OR  KM  :■  4  THEN  GOTO  16280 

IF  K,M  =  1  THEN  GOSUB  13590  i  GOSUB  11800  :  SOSU  11990  :  tCURVE*  =  "  Defined  "  ’  ENTER  EMPIRICAL  DATA 
IF  KM  =  2  THEN  GOSUB  11690  :  3CSoB  11600  :  GOSUB  11990  :  ECURVE*  =  “  Defined  "  '  RETRiEVE  ADDITION  PLOT  POINTS 
IF  KM  =  3  THEN  GOSUB  12300  ’  SAVE  ADDITIONAL  PLOT  JOINTS 

IF  km  =  4  "mEN  GOTO  18490  ’  RETURN  TO  THEORETICAL  FUNCTION  DATA 

GOTO  16260 
RETURN 


’  DEVaOPMENT  OF  'HEURETICAl  HIT  PROBflBL”Y  CURVE  DATA 

TK  =  G«  ’  SAVE  ID  IF  CURVES  TO  BE  ?LOTED 

IF  TBTNO  (=  2  THEN  GOSUB  10330  ’  OUTPUT  HIT  PROBABILITY  TABLE  BY  RANGE  !^0R  E  DR  F  SILOETTE  TGT 

IF  TGTNO  )  2  TIEN  GOSUB  12910  ’  OUTPUT  HIT  PROBABILITY  BY  RANGE  FOR  TANK  TARGETS 
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1B571 

IF  6M  =  8  THEN  GM  *  TM 

13580 

SNO  =  1 

]B530 

IF  GN  =  1  TI€N  PSTfl  1  :  PE?.8  =  • 

"OURVEF  =  '  :u*'ve!3)  l  '  ‘  PLC*  1ST  -hEORETICAL  CURVE 

16800 

IF  BM  =  8  Tt€N  PBTfl  =  8  :  PEND  =  8 

TCilRVct  =  ••  lir-veis)  8  IND  TFEDRETICAL  CURVE 

18610 

IF  GN  =  3  THEN  PSTfl  =  3  :  PE.®  =  3 

'CURVED  =  •  -  '  ■  :.c:  CRD  ‘HECRETrCAL  ICIRVE 

1B620 

IF  GM  =  4  THEN  PSTfl  =  1  :  PEND  =  8 

TCuRVtJ  =  :..rve-s,  1.^  ’  •  FLC'  IE"  i  END  THECSETICAL  CURVE 

18630 

IF  GH  =  5  TiEN  PSTfl  =  1  :  PEND  =  3 

SNO  =  8  :  'CUSVct  =  '  CL-vetiJ  ..3  '  '  PlC'  .57  i  5RD  THEORnCPL  CURVE 

1B6A0 

IF  6N  =  6  THEN  PSTfl  =  8  :  PEND  =  3 

TDJRVEi  =  "  Carve. s;  8.3  '  ’  FvCT  8.ND  S  3RD  TlCDRriCAL  CURVE 

18650 

IF  GH  =  7  THEN  PSTfl  =  1  :  FEND  =  3 

TCiiRVEi  =  "Curve  151  1.8.  C'  '  ALL  3  TriEORETICSL  CURVES 

16660 

RETURN 

18700 

1 

18701 

'  RETRIEVE  BflTTLFIELD  SITUATION  DATA 

18708 

1 

18710 

OPEN  "IMl,*EflTCO®.Dflr" 

•  OPENS  FILE  '^OR  DEFINED  BATIPIELD  SITUATION 

18780 

INPUT  »1.RDI,PJ 

‘  EXTRACT  PROJECTiLc  TYPE  6  PROJECTILE  ID  CODE 

18730 

INPUT  #1,CJ7,:UV 

•  EXTRACT  X  6  Y  AIH  POINT  ADJUSTMENTS 

16740 

INPUT  01,  RB 

»  EXTRACT  BATTLESIGhT  RANGE 

18750 

INPUT  #1,VW 

’  EXTRACT  CROSSDR  i.-T 

1B760 

INPUT  01.TTVPE«,TBTNO 

’  EXTRACT  TARGET  TYPE  &  TARGET  ID  CODE 

18770 

IltfUT  #l,fl,B,C,0,N 

'  EXTRACT  TARGET  DIMENSIONS 

18760 

INPUT  #1.UR 

’  EXTRACT  TARGET  SPEED 

18790 

IM3UT  «l,SIGKfll(l).SIGMPl(8),SIGnPl(3)  ’  EXTRACT  TOTAL  AIN  ERROR  FOR  EACH  CURVE 

18800 

CLOSE  1 

16610 

RETURN 

13880 

1 

16638 

'  STORES  BflTTlEFIELD  SITUATION  DATA 

16840 

1 

18650 

OPEN  'Q“,#l.'EfiTCO!«.OflT" 

'  OPENS  FILE  TO  SAVE  SATTuEFILD  SITUATION 

1)860 

URITE  Hl.RDVPJ 

’  SAVE  PROJECTILE  'YPE  1  PROJECTILE  ID  CODE 

18070 

UNITE  HI.CJX.CJY 

’  SAVE  X  4  Y  AIN  POINT  ADJUSTMENTS 

18860 

WRITE  #1.R8 

’  SAVE  BAHLESIGHT  RANGE 

18390 

WRITE  ni .  VU 

’  SAVE  C.RC3SDRir 

16900 

WRITE  -H.TTVPEi.  "TNO 

’  SAVE  -ARGET  TYPE  i  'ARGET  ID  CODE 

18910 

WRITE  Nl.fl.B.C.D.N 

’  SAVE  TARGET  DIMENSIONS 

16980 

WRITE  01.  VR 

’  SAVE  TARGET  SPEED 

16930 

WRITE  01,SI9(P1(1),SI91P1(8).SI»PJ(3)  ’  SAVE  TOTAL  AIM  ERROR  FOR  EACH  CURVE 

18940 

CLOSE  1 

18950 

RETURN 
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19 

'  PURPOSE  :  TO  CUTPUT  X  AND  Y  PXIS  LABELS  FI 

20 

SUB  XYLOBa  (N)  STATIC 

30 

IF  N  1  THEN  GOSUB  310  i 

GOSUB  170 

40 

IF  N  =  2  T>€N  GOSUB  630  i 

GOSUB  490 

50 

IF  N  =  3  THEN  GOSUB  950  : 

GOSUB  610 

60 

IF  N  =  4  THEN  GOSUB  1270 

GOSUB  1130 

70 

IF  N  =  5  T1€N  GOSUB  1590 

GOSUB  1450 

60 

IF  N  =  6  THEN  GOSUB  1910 

GOSUB  1770 

90 

IF  N  =  7  THEN  GOSUB  2230 

GOSUB  2090 

100 

IF  N  =  0  THEN  GOSUB  2550 

GOSUB  2410 

110 

IF  N  =  9  T1£N  GOSUB  2660 

GOSUB  2720 

120 

IF  N  *  10  THEN  GOSUB  3180 

:  GOSUR  3040 

130 

GOTO  3338 

140 

» 

150 

’  Y  PXIS  LABELS  FOR  1  «TER  HIGH  TARGET 

160 

I 

170 

LOCATE  6,4 

leo 

PRINT  “!• 

igo 

LOCATE  9,3 

200 

PRINT  ",5" 

210 

LOCATE  13,4 

220 

PRINT  "0* 

230 

LOCATE  17,2 

240 

PRINT  '-.S" 

253 

1  r\rt\Tf  'ti  “1 

260 

PRINT  '-I* 

270 

RETURN 

260 

1 

290 

’  X  AXIS  JBELS  FOR  1  NE'ER  HIGH  TARGET 

300 

1 

310 

LOCATE  25. 12 

320 

PRINT  "-I.S" 

330 

LOCATE  25, 23 

340 

PRINT 

350 

LOCATE  25. 32 

360 

PRINT  "-.5" 

370 

LOCATE  25,  43 

360 

PRINT  "0" 

390 

LOCATE  25. 52 

400 

PRINT  ’.C" 

410 

-OCATE  25, 61 

420 

PRINT  "1" 

430 

LOCATE  25, 70 

440 

PRINT  "1.5" 

450 

RETURN 

460 

5 

470 

’  Y  AXIS  LABELS  FOR  2  NE7ER  HIGH  TARGETS 

460 

1 

498 

LOCATE  6,4 

500 

PRINT  "2" 

510 

LOCATE  9.4 

520 

PRINT  "1* 

530 

LOCATE  13,4 

540 

PRINT  "0* 

550 

LOCATE  17,3 

DI>©<SICNflL 
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m 

PRINT  “-r 

578 

LDCRTE  21,3 

5BS 

PRINT  ’-a* 

598 

RETURN 

688 

» 

618 

'  X  fills  LA&ELS  FOR 

628 

1 

631 

LOCATE  25,13 

648 

PRINT  "-3* 

6S8 

LOCATE  25,23 

668 

PRINT  '-O' 

678 

LOCATE  25,33 

668 

PRINT 

698 

LOCATE  25,43 

788 

PRINT  ’0" 

718 

locate  25,52 

728 

PRINT  T 

738 

LOCATE  25.61 

748 

PRINT  "2" 

758 

locate  25,70 

768 

PRINT  '3“ 

778 

RETURN 

768 

1 

798 

'  Y  Alls  LABELS  FOR 

688 

618 

LOCATE  6.4 

628 

PRINT  "3’ 

838 

LCCATE  9.2 

648 

PRINT  'l.S" 

658 

LOCATE  13.4 

668 

PRINT  "0‘ 

378 

LOCATE  17,1 

668 

PRINT  "-1.5" 

698 

LOCATE  £1,3 

m 

PRINT  ''-3'' 

S18 

RETURN 

928 

1 

938 

'  X  AXIS  LAPELS  FOR 

348 

1 

958 

LCCATE  35. 13 

968 

PRINT  "-<*.5'' 

978 

LOCATE  35,23 

988 

PRINT  ’-3' 

990 

LKATE  35. 32 

1888 

PRINT 

1810 

LOCATE  25, 43 

1828 

PRINT  "8" 

1830 

LOCATE  £5, 51 

1848 

PRINT  M.S' 

1850 

LOCATE  25,61 

1868 

PRINT  "3" 

1870 

LOCATE  25, 6S 

1888 

PRINT  "4.5' 

1890 

RETURN 

1180 

1 
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.i;<i 

’  Y  AXIS  LABELS  FOR  *  HETER  HIGH  TARGET 

« 

:;:0 

LOCATE  6.4 

;:oO 

PRINT  ■*“ 

::ii 

LOCATE  9,4 

PRINT  "2" 

:;?* 

LOCATE  13,4 

;:30 

PRINT  "9" 

::90 

LOCATE  21,3 

PRINT 

ic:0 

LIKATE  17,3 

PRINT  ‘-a* 

Ic30 

RETURN 

1240 

1 

12!0 

'  X  RliS  LABELS  FOR  4  METER  HIGH  TARGET 

1260 

1 

1270 

LXATE  25. 1* 

1260 

PRINT  '-O' 

1290 

LOCATE  25,  23 

1300 

PRINT  ■-4* 

1310 

LOCATE  25.  32 

1320 

PRINT  ‘-a* 

1330 

LOCATE  25,  *3 

1340 

PRINT  -e* 

13S0 

LKATE  25, 52 

! 

1360 

PRINT  *2* 

1 

1370 

LKATE  25, 61 

i- 

Y 

1360 

PRINT  ■*“ 

t 

1390 

locate  25,  71 

i 

1400 

PRINT  "6' 

I 

1410 

RETUrai 

1 

1420 

1 

1430 

'  Y  flIIS  labels  for  5  HE’ER  hIGH  *hRGE* 

1440 

1 

1450 

locate  6.4 

1460 

poTf^T  "5* 

1«70 

locate  9.2 

1460 

PRINT  'E.S" 

1490 

LKATE  13,  4 

1500 

PRINT  “0‘ 

1510 

LKATE  17.  1 

1520 

PRINT  "-2.5" 

1530 

LKATE  21,  j 

15*0 

PRINT  "-5* 

1550 

RETURN 

1560 

1 

1570 

'  X  Alls  LABELS  FOR  5  ICTR  HIGH  TARGET 

1560 

» 

1590 

LKATE  25, 12 

1600 

PRINT  "-7.5" 

1610 

LOCATE  25,  23 

1620 

PRINT  "-S" 

1630 

LKATE  25,  31 

16*0 

PRINT  "-2.5" 

1650 

LKATE  25,  43 
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itv' 

iV 

:67i> 

“-•-r  :<  C4 

;9:\-  2.5 

161!> 

•.2CrE  25.6' 

:m 

:7;ji 

fJiN’  'S" 
2K5TE  -5.  '3 

:720 

T'OIM 

1730 

SE'JRI 

1740 

17!0 

•  •'  hT:S  -ABL5  - 

:7w 

9 

.:cs:r  2.- 

1760 

PRiNi  •£- 

1790 

LKflTt  3.4 

1600 

PRINT  '•3' 

1BI0 

lCCRTc  \i,H 

1660 

print  ■■0‘ 

1&10 

LOCATE  17.3 

1640 

PRINT  •-3* 

1650 

LOCATE  21.3 

1660 

PRINT  ‘-k" 

1670 

RETURN 

1660 

1 

1630 

•  X  9IIS  LA6Q.S  F 

1360 

1910 

lXATE  25, 14 

1320 

PRINT  ‘-9* 

:3]0 

uOCATE  25, 23 

1340 

PRINT  '-i’ 

1350 

LOCATE  25. 32 

1360 

PRINT  **2* 

1370 

.'3CR'£  25. -.3 

1360 

PRINT  •0" 

1930 

LXATE  25.  £2 

2060 

PRINT  *3" 

2010 

LCCATE  25.61 

2020 

PRINT  "i" 

2030 

LOCATE  25.': 

2040 

PRINT  *3’ 

2050 

RETURN 

2060 

« 

2070 

'  V  aus  LABELS  f 

2080 

1 

2090 

LOCATE  6,  t 

2100 

PRINT  "V 

2110 

LOCATE  3.2 

2120 

PRINT  *3. 5" 

2130 

2140 

PRINT  "0* 

2150 

LOCATE  17. . 

2<60 

PRINT  “-3.5“ 

2170 

LOCATE  21.3 

2130 

PRINT  ‘-T 

2190 

CTURN 

2280 

t 

loe 


m9 

9 

1  4ii5  uABELS  PI 

2220 

« 

2230 

.DCflTE  12 

22*0 

ORINT  "-10.S" 

2250 

l:XATE  25.23 

2200 

PR!‘(T 

2270 

locate  .>5.3: 

22B0 

PRINT  •-3.5* 

2290 

cXflTE  £5.‘*3 

2380 

PRINT  "0" 

2310 

LOCATE  25.51 

2320 

PRINT  "3.‘* 

2330 

LOCATE  25.61 

2340 

PRINT 

2350 

LOCATE  25.  TO 

2360 

PRINT  •lO.S* 

2370 

RETURN 

2360 

» 

2390 

1 

Y  Alls  LAsas  f 

2400 

9 

2410 

LOCATE  6,4 

24c  0 

PRINT  "8* 

2430 

LOCATE  9.4 

2440 

PRINT  "4‘ 

2450 

LOCATE  lJ.4 

2460 

PRINT  ’S* 

2470 

locate  :7,j 

2480 

PRINT  *-4' 

2490 

LOCATE  21.3 

2500 

PRINT  --a* 

2510 

REm 

2520 

• 

2530 

9 

I  Alls  LRPaS  F 

2540 

9 

2550 

L*ATE  25, 13 

2560 

PRINT  "-12* 

2570 

LOCATE  25.23 

2580 

PRINT  ’-B* 

2590 

LOCATE  25, 32 

2600 

PRINT  •-4’ 

2610 

PRINT  "f 

2620 

locate  25.52 

2630 

PRINT  '4* 

2640 

LOCATE  25.61 

2650 

PRINT  *8” 

2660 

LOCATE  25.70 

2670 

PRINT  '12' 

2680 

(OJRN 

2690 

1 

2700 

9 

Y  Alls  LABaS  F 

2T10 

9 

2720 

LOCATE  6,4 

2730 

PRINT  *9’ 

2740 

locate  9,2 

2750 

PRINT  'A.:* 

2760 

LOCATE  13,4 

2770 

PRIt3T  ’0“ 

27B0 

LOCATE  17,1 

2790 

PRIVT  •-4.5’ 

26«M 

LOCATE  21,3 

2610 

PRINT  '-g* 

2620 

RETURN 

26:2 

f 

2640 

1 

X  AXIS  LABELS  1 

2650 

2660 

LOCATE  25, 12 

2670 

PRINT  ’-13.5' 

2660 

LOCATE  25,23 

2690 

PRINT  '-R' 

2900 

LOCATE  25,  A 

2910 

PRINT  '■-4.5“ 

2920 

LOCATE  25, 43 

2930 

PRINT  "0“ 

29*0 

LKATE  25,51 

2950 

PRINT  *4.5“ 

2960 

LOCATE  25,61 

2970 

PRINT  "9“ 

2980 

LOCATE  25,69 

2930 

PRIM  "13.5" 

3000 

RE-pJfiW 

3010 

T 

3020 

1 

Y  AXIS  LAEaS  i 

3030 

1 

3040 

LOCr.TE  6,3 

3050 

PRINT  "10“ 

3060 

LOCATE  3.4 

3070 

PRIM  "5* 

3080 

LOCATE  13.4 

3090 

PRINT  “0* 

3100 

IXCATE  I-',  3 

3110 

PRINT  ‘-S' 

3120 

LOCATE  21, 2 

3139 

PRINT  "'le- 

3140 

Rriufix 

3150 

f 

3160 

1 

X  AXIS  UIBP.S  1 

3170 

1 

3180 

LOCAH:  23, 13 

3190 

PRINT  "-15" 

3200 

LXATE  25,22 

3210 

PRINT  "-10" 

3220 

LOCATE  25,32 

3230 

PRINT  "-5- 

3240 

LOCATE  2S,43 

3250 

PRINT  "0" 

3260 

LOCATE  25.52 

3270 

PRINT  "5" 

3280 

LOCATE  25,61 

3290 

PRINT  *10* 

33M 

LOCATE  25, 70 
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3310  PRINT  MS' 

3320  RETURN 

3338  END  SUB 
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MARKSMANSHIP  AIMING  AND  TRACKING  ANALYSIS  SYSTEM  FIELD  LISTING 


Appendix  C  lists  and  describes  the  system  data  and  batch  files  req'iired 
to  run  MATAS  . 

Data  Files: 


"POINTS .SIL"  -  contains  empirical  data  points  for  both  E-  and  F- 
silhouette  targets.  These  data  points  are  based  on  user-defined 
target  range  and  associated  hit  probability  for  the  graphic 
analysis  module. 

"POINTS. TNK"  -  contains  empirical  data  points  for  both  Tank  - 
front  and  side  view  targets.  These  data  points  are  based  on  user- 
defined  target  range  and  associated  hit  probability  for  the 
graphic  analysis  module. 

"AEMDL.EST"  -  contains  as  many  as  30  aim  error  component 
estimates.  These  estimates  are  based  on  user-defined  estimates 
(component  name  and  associated  value)  which  form  the  composite  aim 
error  values  in  the  parameter  analysis  module. 

"AEDAM.EST"  -  contains  as  many  as  30  aim  error  component 
estimates.  These  estimates  are  based  on  analyst-defined  aim  error 
values .  These  values  are  used  to  generate  the  hit  probability 
curves  in  the  graphic  analysis  module. 

"BATCOND.DAT"  -  contains  the  battlefield  situation  and  the  total 
aim  error  for  each  theoretical  curve  defined  in  the  graphic 
analysis  module. 


Batch  Files : 


"AUTOEXEC.BAT"  -  executes  "GRAPHICS"  which  runs  in  RAM  and  allows 
the  user  the  capability  to  print  screen  displays  if  the  IBM 
graphics  printer  is  available  and  the  model  itself  "AESMAX6." 

"INSTALL.BAT"  -  installs  the  MATAS  to  the  hard  disc  by  creating  a 
directory  and  copying  all  required  files  into  that  directory. 

"MATAS.BAT"  -  executes  "GRAPHICS"  and  "AESMAX6"  the  model. 
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